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 vote199 views4 answers
How to continue formula in below line in vba code
VBA
15 votes219 views1 answer
Excel vba wait
VBA
0 vote169 views1 answer
Vba copy paste value only
VBA
0 vote197 views2 answers
Excel vba copy paste after last row
VBA
0 vote178 views1 answer
Loop through lines in text file vb net
VBA
0 vote187 views1 answer
Afficher un message d'erreur vba
VBA
0 vote196 views1 answer
Vba first cell in range
VBA
0 vote180 views1 answer
Select case vba
VBA
2 votes170 views1 answer
Excel vba extract file name
VBA
0 vote178 views1 answer
Vba collection key list
VBA