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 vote241 views1 answer
Excel named range sum
VBA
0 vote226 views1 answer
Worksheet.pastespecial textbox
VBA
0 vote229 views1 answer
Vb check if row has column
VBA
0 vote247 views1 answer
Find database connection string vb
VBA
0 vote222 views1 answer
Vb.net visible property dgv collumn not working
VBA
3 votes239 views1 answer
Excel vba change format of cell
VBA
3 votes237 views1 answer
Extract the nth word from a text string
VBA
3 votes241 views2 answers
Excel "vba" match last value
VBA
1 vote233 views1 answer
Excel vba unload userform
VBA
0 vote251 views1 answer
How to mount floppy disks in vb.net
VBA