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 vote265 views1 answer
Vbnet get file name from path
VBA
0 vote257 views1 answer
Vba pass named range to function
VBA
3 votes262 views1 answer
Excel vba read registry key value
VBA
0 vote264 views1 answer
Vba format currency
VBA
1 vote219 views1 answer
Vba Remove Case Sensitivity
VBA
1 vote271 views1 answer
Add control vb
VBA
2 votes274 views1 answer
Vba ado ace sql alias ignored for calculated column
VBA
0 vote282 views1 answer
Vba round to 2 decimals
VBA
0 vote270 views1 answer
How to set location and size of new from vb
VBA
0 vote277 views1 answer
Vba get workbook name
VBA