Macro Delete Contents in 23rd corresponding cell if the cell in range is a non-blank cell

[murtaza.khan]

I struggling to write this simple macro.

I have a data set and I want the macro to delete the contents of the corresponding cell on the same row in 23rd column if the cell in range is a non-blank cell. The code I am using is

    Dim Rng As Range
 
    Set Rng = ActiveSheet.Range("B3:B" & Finalrow)
            For Each cell In Rng
        
            If cell.Value = "*" Then

            Cells.Offset(0, 23).ClearContents
            
            End If
            
        Next
        
End Sub

I would highly appreciate if someone can help.
Thanks... Murtaza