Remove any formatting from cells

[crmpicco]

I am looking for code that will select ALL cells in a workbook and remove any formatting that may be on these cells, i.e. Bold, Italic or sized text.

[johnske]

Hi crmpicco,
Try this

Option Explicit

Sub ClearIt()
Dim N&
For N = 1 To Sheets.Count
Sheets(N).Activate
Cells.ClearFormats
Next N
End Sub




HTH,
John

[crmpicco]

excellent - cheers

[crmpicco]

Cells.ClearFormats



works great

[johnske]

Hi, I was doing that on the fly and didn't put a loop for all sheets (corrected now) :)

[crmpicco]

thanks