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 vote201 views1 answer
Get current url vb.net
VBA
0 vote216 views1 answer
Vbnet line chart showing extra space
VBA
0 vote209 views1 answer
Pivot data source not accepting table named range vba
VBA
8 votes474 views1 answer
Vba convert 2 bytes to an integer
VBA
0 vote202 views1 answer
Vba string
VBA
0 vote205 views1 answer
Returns an array from function vba
VBA
0 vote216 views1 answer
Vba html document reference
VBA
31 votes491 views1 answer
Vba how to convert a column number into an Excel column
VBA
0 vote212 views1 answer
Dynamically change drop down list visual basic
VBA
1 vote195 views2 answers
Vba function return array
VBA