If you would like to clean an entire sheet of its contents (withou
removing formatting) use the ClearContents method, otherwise use th
delete method. Here is an example:

Sub ClearActiveSheet ()
Application.ScreenUpdating=False ' lets code execute faster

ActiveSheet.Cells.Select
Selection.ClearContents

Application.ScreenUpdating=True
End Su

--
crispb
-----------------------------------------------------------------------
crispbd's Profile: http://www.excelforum.com/member.php...fo&userid=1088
View this thread: http://www.excelforum.com/showthread.php?threadid=27454