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 vote291 views1 answer
Vba copy file
VBA
0 vote301 views1 answer
Loop through each cell in dgv vbnet
VBA
0 vote294 views1 answer
Vba first cell in range
VBA
0 vote268 views1 answer
Vba dropdown event
VBA
0 vote293 views1 answer
Make all controls in an area not visable vb
VBA
3 votes279 views1 answer
Excel vba read registry key value
VBA
0 vote320 views4 answers
Vgrive,deb
VBA
1 vote318 views1 answer
Excel vba How to determine if a date falls on the weekend?
VBA
0 vote272 views1 answer
Vbnet check if string is only symbols
VBA
0 vote294 views1 answer
VBA Loop to range
VBA