Excel vba range contains

' Tests if a range contains a value
Sub TestMe()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets(1)
    If Application.WorksheetFunction.CountIf(ws.Range("A2:A10"), _
           ws.Range("A1")) = 0 Then
        Debug.Print "No match"
    Else
        Debug.Print "Range contains value " & ws.Range("A1").Cells(1, 1).Value
    End If
End Sub

Similar codes

0 vote230 views1 answer
Pivot data source not accepting table named range vba
VBA
1 vote219 views1 answer
Excel vba get column name from number
VBA
0 vote211 views1 answer
Excel vba populate array with cell values
VBA
0 vote232 views1 answer
Vba option button selected
VBA
0 vote241 views1 answer
Vba range clear formatting
VBA
0 vote231 views1 answer
Vba type
VBA
0 vote293 views1 answer
Application.ExecutablePath VB.NET
VBA
6 votes236 views1 answer
Excel vba check if a string only contains alpha characters
VBA
0 vote231 views1 answer
Vba collection contains
VBA
1 vote262 views1 answer
Excel vba convert text YYYYMMDD to date
VBA