Code aus Tab.Blatt löschen
18.01.2010 15:46:27
Heinz H
Hallo Leute
Mit unteren Code lösche ich bei
Sheets(aSh).Shapes("Button 1").Delete
einen Button.
Nun befinden sich im Blatt noch 2 Code. Ich möchte den Code
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
auch löschen.
Mit Recorder wird nichts aufgezeichnet.
Könnte mir bitte jemand Hilfe leisten.
Gruß
Heinz
Sub SheetCopy()
Dim aSh, nSh As String
nSh = ActiveSheet.[G1]
aSh = ActiveSheet.Name
Sheets(aSh).Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = nSh
Sheets(aSh).Shapes("Button 1").Delete
End Sub