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 vote305 views1 answer
Excel vba automatic calculation
VBA
0 vote327 views2 answers
Get unique random number in vb.net
VBA
0 vote334 views1 answer
Excel vba named range exists
VBA
0 vote311 views1 answer
Excel vba move down to next visible cell
VBA
0 vote372 views1 answer
Visual basic cmd
VBA
0 vote327 views1 answer
Excel vba paste all to each sheet in workbook
VBA
1 vote318 views1 answer
Excel vba saveas force overwrite
VBA
0 vote325 views1 answer
Excel vba unlock sheet without password
VBA
5 votes305 views1 answer
Excel vba how to unit test vba code
VBA
0 vote336 views2 answers
Excel vba number format file size
VBA