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 vote135 views1 answer
How to get value from clipboard in vbnet
VBA
0 vote85 views1 answer
Vba select file in folder
VBA
0 vote128 views1 answer
Rotate image by any angle vb.net
VBA
2 votes121 views1 answer
Excel vba date to string conversion
VBA
0 vote109 views1 answer
Excel vba open browser
VBA
0 vote124 views1 answer
Move bindingnavigator vb
VBA
4 votes95 views2 answers
Vba last row
VBA
6 votes127 views1 answer
Excel vba check if a string only contains letters
VBA
0 vote143 views1 answer
Wpf dark title bar
VBA
0 vote74 views1 answer
Excel vba arrondir
VBA