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

4 votes148 views2 answers
Vba create folder if not exist
VBA
6 votes168 views1 answer
Excel vba isalpha
VBA
5 votes165 views1 answer
Vba low byte from INTEGER
VBA
0 vote133 views1 answer
Vbnet display all axis labels in cahrt
VBA
2 votes135 views1 answer
Vba array contains
VBA
1 vote141 views1 answer
If inputbox cancel vba
VBA
0 vote140 views1 answer
Add Formula to Shape Text in VBA
VBA
0 vote151 views1 answer
Worksheet.pastespecial textbox
VBA
1 vote142 views1 answer
Excel vba Populating a combobox on a userform from a range of cells
VBA
1 vote157 views1 answer
Add rows to datagridview vb.net
VBA