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

3 votes343 views1 answer
Excel vba export sheet as a csv without losing focus of my current workbook
VBA
0 vote367 views2 answers
Get unique random number in vb.net
VBA
0 vote374 views1 answer
Vba variable number of arguments
VBA
5 votes930 views1 answer
Vlookup vba
VBA
0 vote349 views1 answer
Search in richtextbox vb.net
VBA
3 votes402 views1 answer
Vba continue for each loop
VBA
0 vote344 views1 answer
Excel vba disable keyboard input
VBA
0 vote348 views1 answer
Excel vba delete folder
VBA
0 vote351 views1 answer
Excel vba saveas no prompt for overwrite
VBA
0 vote343 views1 answer
Vba sheet visible
VBA