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 vote199 views2 answers
Excel vba prevent save
VBA
0 vote219 views1 answer
Vba first cell in range
VBA
0 vote206 views1 answer
Vbnet dynamically change excel sheet name
VBA
0 vote228 views1 answer
Vba search string position
VBA
0 vote222 views1 answer
Excel vba paste all to each sheet in workbook
VBA
0 vote226 views1 answer
Excel delete ever other vba
VBA
0 vote232 views1 answer
Vbscript remove spaces from string
VBA
0 vote231 views1 answer
Excel vba first column in range
VBA
0 vote210 views1 answer
Label de tableau dans des label.text en VBA
VBA
0 vote239 views1 answer
Vbnet check if string is only letters
VBA