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

1 vote207 views1 answer
Extract the second word in a text in excel
VBA
0 vote192 views1 answer
Refresh token em vb net
VBA
2 votes208 views1 answer
Excel vba check if string entirely numeric
VBA
0 vote200 views1 answer
Convert unix to date vba
VBA
0 vote193 views2 answers
Delete all controls from list of control vb.net
VBA
1 vote201 views1 answer
Excel vba Run a Macro every time sheet is changed
VBA
0 vote210 views1 answer
Excel vba protect sheet
VBA
31 votes246 views1 answer
Vba how to convert a column number into an Excel column
VBA
0 vote240 views1 answer
Windows Forms dark title bar
VBA
0 vote184 views1 answer
Vba dropdown event
VBA