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 vote229 views1 answer
Vba collection contains
VBA
8 votes497 views1 answer
Vba convert 2 bytes to an integer
VBA
0 vote157 views1 answer
Vba select file in folder
VBA
5 votes244 views1 answer
Excel vba tool to help with refactoring code
VBA
0 vote219 views2 answers
Excel vba close without saving
VBA
0 vote233 views1 answer
Vba copy file
VBA
0 vote226 views1 answer
Show unix time in vba
VBA
0 vote235 views1 answer
Label de tableau dans des label.text en VBA
VBA
1 vote224 views1 answer
Add rows to datagridview vb.net
VBA
18 votes395 views3 answers
Excel-vba make integer
VBA