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 vote269 views1 answer
Vba pass named range to function
VBA
8 votes330 views1 answer
Run command pormpt in background windows
VBA
0 vote267 views1 answer
Do until vb.net
VBA
5 votes327 views1 answer
Excel vba left word from Long Integer
VBA
1 vote235 views1 answer
Vba Remove Case Sensitivity
VBA
0 vote277 views1 answer
Vb net dgv doesn't keep currency format
VBA
4 votes293 views1 answer
Excel vba how to programmatically remove the marching ants after range copy
VBA
5 votes362 views1 answer
Excel vba get low byte from INTEGER
VBA
1 vote284 views1 answer
Excel vba force recalculation
VBA
1 vote286 views2 answers
Vba function return array
VBA