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 vote220 views1 answer
How to use VBA to add new record in MS Access?
VBA
4 votes221 views1 answer
Excel vba determine number of elements in an array
VBA
0 vote234 views1 answer
Menus act like radio buttons vb.net
VBA
0 vote239 views1 answer
How to get the value of optionbutton in vba
VBA
0 vote231 views1 answer
Vba sort the data Z to A
VBA
0 vote215 views1 answer
Backspace key has stopped working visual studio
VBA
0 vote257 views1 answer
Send text to clipboard vb.net
VBA
0 vote216 views1 answer
Vba leading zeros in string
VBA
1 vote2K views1 answer
Vba Remove Case Sensitivity
VBA
1 vote227 views1 answer
How to put a gridpain in a vbox
VBA