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 vote116 views1 answer
Enter into cells data grid view
VBA
0 vote124 views1 answer
Vba get workbook name
VBA
4 votes135 views1 answer
Excel vba Imitating the "IN" operator from python
VBA
0 vote162 views1 answer
Set datetimepicker value to null vb
VBA
0 vote130 views1 answer
Vbnet revrese the order of character in string
VBA
1 vote118 views1 answer
What does vbs stand for
VBA
0 vote131 views1 answer
Vbs expand env var
VBA
0 vote131 views1 answer
Vbnet find highest value in chart
VBA
0 vote160 views1 answer
Vb ternary
VBA
5 votes142 views1 answer
Excel vba tool to help with refactoring code
VBA