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

8 votes260 views1 answer
Excel vba determine number of elements in a 1D array
VBA
0 vote176 views2 answers
Excel vba protect cells with formula
VBA
1 vote164 views1 answer
Vba delete file
VBA
0 vote170 views1 answer
Vba html document reference
VBA
1 vote157 views1 answer
Excel vba get ordinal number from cardinal number
VBA
0 vote155 views1 answer
How to set location and size of new from vb
VBA
0 vote165 views1 answer
Visual basic msdos
VBA
0 vote172 views2 answers
Vba remove line breaks
VBA
2 votes170 views2 answers
Vba code to remove duplicates from a column
VBA
3 votes163 views1 answer
Excel vba get the workbook full file name with path
VBA