Delete selected sheet

[cyzax7 via OfficeKB.com]

Hi there,

I have created a check box to delete certain sheet (which is called by ref) )
in my mainsheet called "Home". So that when user check the box, it will
delete the selected sheet. This is what I've done so far... Can some one
correct me..???



Const MainSheet = "Home"

/-----------------------------------------------------------------------------
--------------------------------------/
Sub InitializeValues()

With Worksheets(MainSheet) 'check for
all user inputs

ClearResultsSheet_checked = .ClearResultsSheetCheckBox1.Value

End With
End Sub

/-----------------------------------------------------------------------------
------------------------------------/
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"

Worksheets(strname).Activate

'Worksheets(SheetName).Activate
Cells.Select
Selection.Delete
Range("A").Select

End Sub

/-----------------------------------------------------------------------------
--------------------------------/

 

[Leith Ross]

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