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

3 votes139 views1 answer
Vba make long from two words
VBA
0 vote131 views1 answer
Excel vba Column Name from Column Number
VBA
0 vote88 views1 answer
Vba code to remove leading and trailing spaces
VBA
0 vote131 views1 answer
Vbnet cycle through charaters in string
VBA
0 vote138 views1 answer
Excel run macro every 5 minutes
VBA
0 vote146 views1 answer
Vba table header name
VBA
0 vote134 views1 answer
Vb.net visible property dgv collumn not working
VBA
0 vote138 views1 answer
Windows Presentation Foundation dark title bar
VBA
3 votes141 views1 answer
Excel vba export sheet as a csv without losing focus of my current workbook
VBA
0 vote141 views1 answer
Vba paste values
VBA