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 vote182 views1 answer
Vba variable number of arguments
VBA
1 vote178 views1 answer
Set font for ms chart vb.net
VBA
0 vote174 views1 answer
Vbscript check if string is empty
VBA
1 vote164 views1 answer
Vba reverse string
VBA
0 vote162 views1 answer
Vba copy paste value only
VBA
0 vote179 views1 answer
Programmatically copy data from one workshet to another excel
VBA
0 vote181 views1 answer
VBA Sort RossetaCode
VBA
0 vote182 views1 answer
Vba remove the first character of string
VBA
0 vote177 views1 answer
Vb.net change cursor to wait
VBA
8 votes300 views1 answer
Vba convert 2 bytes to an integer
VBA