Hello cyzax7,

Try this...

Sub ClearSheet(ByRef spectype As String)
'just to clear the old Results Sheet before putting any new data
in

Dim strname As String

strname = spectype & " Results"

With Worksheets(strname)
UsedRange.ClearContents
Range("A").Select
End With

End Sub

Sincerely,
Leith Ross


--
Leith Ross
------------------------------------------------------------------------
Leith Ross's Profile: http://www.excelforum.com/member.php...o&userid=18465
View this thread: http://www.excelforum.com/showthread...hreadid=551257