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 vote121 views1 answer
Vba select file in folder
VBA
0 vote197 views1 answer
Search for text in every worksheet excel visual basic
VBA
0 vote182 views1 answer
Excel vba extract year
VBA
1 vote177 views1 answer
Random number generator vb.net
VBA
0 vote173 views1 answer
Internet explorer reference vba
VBA
0 vote190 views1 answer
Tester si une case est vide vba
VBA
0 vote178 views1 answer
Windows Presentation Foundation dark title bar
VBA
1 vote194 views1 answer
Find and replace textbox
VBA
0 vote174 views1 answer
Vba collection contains
VBA
3 votes203 views1 answer
Extract word in a text in excel
VBA