Clear cells with VBA

[Guzzlr]

Hello all,
A little VBA help please.
How do I clear cells with numbers in them, but not any of the formulas?
For example: Cells B2:G8 are allocated for data input, and some of these cells have formulas in them. I would like to clear all the data, but leave the formulas, so I can input new data?
Thanks

 

[FormR]

Hello,

Try:

Sub ClearSomeCells()
On Error Resume Next
Range("B2:G8").SpecialCells(xlCellTypeConstants, xlNumbers).ClearContents
On Error GoTo 0
End Sub

 

[Guzzlr]

Works like a Champ...thanks

 

[FormR]

Works like a Champ...thanks

Great, thanks for letting us know!