Cell Content & Format Not Changing With Found Row & Column Values

[Ark68]

Will someone review my code below and help me determine why it's not working as hoped?

    alias = WorksheetFunction.VLookup(ws_th.Range("A16"), ws_lists.Range("BQ2:CF25"), 16, False)
    With ws_shifts
        LRow = Application.WorksheetFunction.Match(CDbl(qdate), .Range("A:A"), 0)
        With .Range("A" & LRow & ":BE" & LRow)
            Set rFind = .Find(What:=alias, LookAt:=xlWhole, MatchCase:=False, SearchFormat:=False)
            If Not rFind Is Nothing Then
                With .Cells(rFind.Column, rFind.row)
                    .Value = "Not Staffed"
                    .Interior.ColorIndex = 3 'red
                End With
                With .Cells(rFind.Column - 3, rFind.row)
                    .Value = "X"
                    .Interior.ColorIndex = 3 'red
                End With
            End If
        End With

The code highlighted in purple is supposed to change the value and backcolor of the cell found in the find code. This isn't happening. The code is executed, but the cells don't change.

 

[RoryA]

Why are you using

.Cells(rFind.Column, rFind.row)

rather than just rFind?

If nothing is changing, I suspect your Find operation is not finding anything.

 

[Ark68]

Why am I using ... ?

.Cells(rFind.Column, rFind.row)

Simple ... I didn't quite realize what 'find' actually provided. It makes sense now, that it finds the address, vs. just the column and/or row.

Thanks Rory ... another lesson learned!

Jen

 

[RoryA]

It returns an actual Range object, not just the address.