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

1 vote129 views1 answer
Excel vba saveas force overwrite
VBA
0 vote132 views1 answer
Vba createparameter null
VBA
0 vote139 views1 answer
Remove first character from string vb
VBA
0 vote141 views2 answers
How to concatenate more than 40 lines in vba
VBA
2 votes97 views1 answer
Excel vba pause
VBA
3 votes135 views1 answer
Excel vba read registry key value
VBA
8 votes186 views1 answer
Excel vba make word
VBA
0 vote146 views1 answer
Vb.net change cursor to wait
VBA
0 vote140 views1 answer
Vbnet check if number is even or odd
VBA
0 vote144 views4 answers
How to continue formula in below line in vba code
VBA