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 vote312 views1 answer
Excel vba formatconditions range
VBA
0 vote329 views1 answer
Excel vba show developer tab
VBA
5 votes355 views1 answer
Excel vba highlight cells using the hex color value within the cells
VBA
0 vote334 views1 answer
Vbs send keys
VBA
0 vote335 views1 answer
Vba type
VBA
0 vote350 views1 answer
Excel vba disable screen update
VBA
0 vote288 views1 answer
Excel vba linter
VBA
0 vote362 views1 answer
Make your computer talk vbscript
VBA
0 vote338 views2 answers
Vba remove line breaks
VBA
0 vote323 views1 answer
Windows Presentation Foundation dark title bar
VBA