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 vote147 views1 answer
How to use VBA to add new record in MS Access?
VBA
0 vote148 views1 answer
VB Error Code BC30201
VBA
3 votes149 views1 answer
Extract the nth word from a text string
VBA
31 votes267 views1 answer
Excel-vba how to convert a column number into an excel column
VBA
1 vote142 views2 answers
Vba remove first 2 characters from string
VBA
0 vote147 views1 answer
Vba code for cutoff time
VBA
1 vote157 views1 answer
Excel vba force recalculation
VBA
0 vote159 views1 answer
Vbnet convert charatcer to binary
VBA
0 vote166 views4 answers
Vgrive,deb
VBA
0 vote160 views1 answer
Vba remove last vbcrlf
VBA