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 vote219 views1 answer
Vba add month to date
VBA
5 votes245 views1 answer
Excel vba low word from Long Integer
VBA
0 vote228 views1 answer
Excel vba unmerge sheet
VBA
1 vote228 views1 answer
Vbs run
VBA
2 votes221 views1 answer
Vba file from path
VBA
0 vote213 views1 answer
Remove frist letter from string vbnet
VBA
1 vote253 views1 answer
Excel vba convert text YYYYMMDD to date
VBA
0 vote215 views1 answer
Vba file size
VBA
0 vote229 views1 answer
Excel vba cell on change
VBA
0 vote168 views1 answer
How to make a if statement with vbs
VBA