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 vote170 views1 answer
Vba listbox remove all items
VBA
0 vote163 views1 answer
Vba collection contains
VBA
0 vote252 views1 answer
Find the name of the last excel sheet vb
VBA
0 vote105 views1 answer
Excel autofilter vba
VBA
0 vote149 views1 answer
Excel vba populate array with cell values
VBA
1 vote177 views1 answer
Vb.net get name by Cell Click
VBA
0 vote166 views1 answer
Excel vba automatic calculation
VBA
1 vote148 views2 answers
Vba remove first 2 characters from string
VBA
0 vote166 views1 answer
Excel vba convert cells address
VBA
0 vote151 views1 answer
Afficher un message d'erreur vba
VBA