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 vote225 views1 answer
Default host vbox address
VBA
6 votes220 views1 answer
Excel vba get the path of current workbook
VBA
0 vote209 views1 answer
Excel vba disable mouse click
VBA
0 vote219 views1 answer
Convert number to minutes in vba
VBA
0 vote218 views1 answer
How to get value from clipboard in vbnet
VBA
-1 vote244 views1 answer
How save excel through visual basic
VBA
0 vote217 views1 answer
Show unix time in vba
VBA
0 vote213 views1 answer
Vba sort the data Z to A
VBA
1 vote218 views1 answer
Excel vba get column number from column name
VBA
0 vote195 views1 answer
Excel vba populate array with cell values
VBA