Not finding range

[Moonbeam111]

I'm trying to find the name in range("C21") , match it with one of the cells in the one of the cells in that list and offset from range("C21") again. But rfound keeps coming up as nothing so its exiting the sub. Is something wrong with my code? Please advise me.

Dim rfound As Object
Set rfound = Sheets("Sheet1").Range("C21").Find(what:=Range("C133,C143,C153,C163,C173,C183"))
If rfound Is Nothing Then
Exit Sub
Else: rfound.Offset(5, 1) = rfound.Offset(5, 1) + 1
End If

 

[MikeVol]

Maybe like:

    Dim searchValue As Variant
    searchValue = Sheets("Sheet1").Range("C21").Value

    Dim searchRange As Range
    Set searchRange = Sheets("Sheet1").Range("C133,C143,C153,C163,C173,C183")

    Dim rfound      As Range
    Set rfound = searchRange.Find(What:=searchValue, LookIn:=xlValues, LookAt:=xlWhole)

    If rfound Is Nothing Then
        Exit Sub
    Else
        rfound.Offset(5, 1).Value = rfound.Offset(5, 1).Value + 1
    End If

 

[Moonbeam111]

Thanks. Just had to make a small tweak to your code in the last line and it worked as intended.

    Dim searchValue As Variant
    searchValue = Sheets("Sheet1").Range("C21").Value

    Dim searchRange As Range
    Set searchRange = Sheets("Sheet1").Range("C133,C143,C153,C163,C173,C183")

    Dim rfound      As Range
    Set rfound = searchRange.Find(What:=searchValue, LookIn:=xlValues, LookAt:=xlWhole)

    If rfound Is Nothing Then
        Exit Sub
    Else
       Range("C21").Offset(5, 1) = Range("C21").Offset(5, 1) + 1
    End If