Simple ClearContents not working

[ColinCoady]

I can't figure out why this won't work. Can someone take a look?

Private Sub ClearContents()
Worksheets("Costing").Activate
If Cells(7, 5).Value = "Other %" Then Cells(7, 7).ClearContents
End Sub

 

[Rick Rothstein]

I can't figure out why this won't work. Can someone take a look?

Private Sub ClearContents()
Worksheets("Costing").Activate
If Cells(7, 5).Value = "Other %" Then Cells(7, 7).ClearContents
End Sub

Describer "won't work" for us... what exactly happens?

 

[Fluff]

What does this formula return?
=CODE(RIGHT(E7))

 

[pgc01]

Hi

Where is this code, in a sheet module or in a general module?

If it's in a sheet module use instead:

Private Sub ClearContents()

If Worksheets("Costing").Cells(7, 5).Value = "Other %" Then Worksheets("Costing").Cells(7, 7).ClearContents
End Sub