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 vote225 views1 answer
Vba add shape oval
VBA
0 vote266 views2 answers
Get unique random number in vb.net
VBA
0 vote249 views1 answer
Vba html document reference
VBA
0 vote252 views1 answer
Vba search string position
VBA
1 vote225 views1 answer
How to do error handling in access vba
VBA
0 vote261 views1 answer
Programmatically copy data from one workshet to another excel
VBA
0 vote260 views1 answer
Iterate all file in a folder vba
VBA
0 vote228 views1 answer
Get current url vb.net
VBA
0 vote236 views1 answer
Vba sheet visible
VBA
0 vote242 views1 answer
Vb streamreader
VBA