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