Excel VBA Macro to Clear Contents, Formats of an Active WorkSheet

VBA Macro to Clear Contents, Formats of an Active WorkSheet 
Example-I: 
Sub Clear_Contents()
'Removes only the cell contents

Range("A1:Z1000").ClearContents

End Sub

----------------------------------------------------------
Example-II: 

Sub Clear_All()
'To Remove cell contents & their formats

Range("A1:Z1000").Clear

End Sub

Thanks,Tamatam