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 vote173 views1 answer
Excel vba address not absolute
VBA
31 votes366 views1 answer
Excel vba function to convert column number to letter
VBA
0 vote171 views1 answer
Vba like with wildcard
VBA
0 vote207 views1 answer
Excel vba unlock sheet without password
VBA
0 vote187 views1 answer
Excel vba unmerge sheet
VBA
0 vote175 views1 answer
How to format a textbox as date vb net
VBA
1 vote184 views1 answer
Excel vba force recalculation
VBA
0 vote209 views1 answer
Excel vba round to whole number
VBA
5 votes180 views1 answer
Xl vba double quotes in string literal
VBA
0 vote192 views1 answer
Add text to Shape VBA
VBA