Bad suggestion.

Clears out the formulas in cells with an "x"


Gord

On Tue, 23 Dec 2008 11:19:16 -0800, Gord Dibben <gorddibbATshawDOTca wrote:

Private Sub Worksheet_Calculate()
Dim Cell As Range
Const WS_RANGE As String = "B:B" 'adjust to suit
On Error GoTo CleanUp
Application.EnableEvents = False
For Each Cell In Me.Range(WS_RANGE).Cells
If Cell.Value = "x" Then
With Cell
.Font.Name = "Marlett"
.Font.Size = 10
.Value = "b"
End With
End If
Next Cell
CleanUp:
Application.EnableEvents = True
End Sub


Gord Dibben MS Excel MVP

On Tue, 23 Dec 2008 05:27:01 -0800, JPS
wrote:

I am using 2003... Any suggestion?