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

6 votes370 views1 answer
Excel vba isalpha
VBA
0 vote330 views1 answer
Default host vbox address
VBA
0 vote345 views1 answer
Vb ternary
VBA
0 vote352 views1 answer
Iterate all file in a folder vba
VBA
5 votes390 views1 answer
Vba low byte from INTEGER
VBA
0 vote336 views1 answer
Excel vba Column Name to Column Number
VBA
0 vote362 views1 answer
Vba ternary
VBA
0 vote320 views1 answer
How to carry text to the next line in a label in vb.net
VBA
0 vote327 views2 answers
Excel vba protect cells with formula
VBA
0 vote350 views1 answer
Vba add spaces
VBA