all user defined cell format del using macro

how do i do using macro for deleting all user defined cell format in a
specific workbook?

sub()
~~~~~~~
end sub



*** Sent via Developersdex http://www.developersdex.com ***

Hello x toal,

Here is the macro...

Public Sub ClearAllFormats()
Dim Wks
For Each Wks In ActiveWorkbook.Worksheets
Wks.UsedRange.ClearFormats
Next Wks
End Sub

Sincerely,
Leith Ross