Hello i have a spreadsheet with a button with code attached, i am trying to
remove the button and the code. the code was easy, just copy the sheet. but
the button is not easy. this is my current code for the removal of the button
and stuff:

'create a new workbook to email
Sheets("Weekly Time Record").Select
Sheets("Weekly Time Record").Copy

'remove button and 2nd row in email version
Sheets("Weekly Time Record").Shapes.SelectAll
Selection.Delete
Rows("2:2").Select
Selection.Delete Shift:=xlUp

If Not fs.FolderExists(DirString) Then
fs.CreateFolder DirString
End If
strFName = "Time Card " & SunDT & " " & USRNM & ".xls"
.Parent.SaveAs DirString & "\" & strFName

the line:

Sheets("Weekly Time Record").Shapes.SelectAll
Selection.Delete

keeps crapping out and giving me a out of memory error. i have also tried:

activeworkbook.Shapes.SelectAll
Selection.Delete

this gives me the same problem.

any ideas out there?