Pasted

'***************************************************************************
' Remove formatting of ALL cells in a sheet that don't have data
'      -- WARNING: Takes a while to run 
'                       ~~ AJ ~~
' ***************************************************************************
 
 
Sub Foo()
ActiveSheet.UsedRange.SpecialCells(xlCellTypeBlanks).ClearFormats
End Sub