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 vote155 views1 answer
Enter into cells data grid view
VBA
8 votes180 views1 answer
Run command pormpt in background windows
VBA
0 vote174 views1 answer
Loop through each cell in dgv vbnet
VBA
0 vote177 views1 answer
Excel named range sum
VBA
20 votes236 views1 answer
Excel vba recursive example factorial function
VBA
3 votes170 views1 answer
Excel vba export sheet as a csv without losing focus of my current workbook
VBA
12 votes224 views1 answer
Excel vba write string to text file
VBA
0 vote197 views1 answer
Iterate all file in a folder vba
VBA
0 vote203 views4 answers
Vgrive,deb
VBA
3 votes165 views1 answer
Excel vba read registry key value
VBA