clearformats_allcellsWOdata

'***************************************************************************
' 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