Look Through Sheet & Clear Cells which do not have formula

[pr4t3ek]

Hello,
I'm looking for a script which will look through all work sheets in a workbook. Check if any of the cells contain a formula. If false, clear contents on these cells which do not contain formula. Provide message box at end showing a count of how many cells cleared.

Cheers

[pr4t3ek]

Sub ClearCellsWithFormula()
'Sub clears the contents of a cell in your selected range if it contains a formula
    Dim myRange, wksht As String
    Dim iCount As Integer
    iCount = 0

    myRange = Selection.Address
    wksht = ActiveSheet.Name
  
    For Each c In Worksheets(wksht).Range(myRange).Cells
        If c.HasFormula Then
            c.ClearContents
            iCount = iCount + 1
            Application.StatusBar = iCount & " cells with Formula's have been removed"
        End If
    Next c
    MsgBox (iCount & " Cells with Formula's have been removed")
End Sub