Delete command button in code

Hi all,

Can someone advise how to add to this code to delete the command button after the code runs??

CHeers!!

Private Sub CommandButton1_Click()
>'CopyData1 Range("C10:C37"), "BASE MACHINE"
>CopyData1 Range("C45:C115"), "OPTIONS INCLUDED"
>End Sub
>Private Sub CopyData1(rngC As Range, Target As String)
>Application.ScreenUpdating = False
>Dim rng As Range, cell As Range
>Dim rng1 As Range, rng2 As Range
>Dim rng3 As Range
>Dim nrow As Long, rw As Long
>Dim Sh As Worksheet
>nrow = Application.CountIf(rngC, ">0")
>If nrow = 0 Then Exit Sub
>Set Sh = Worksheets("sheet1")
>Set rng = Sh.Columns(1).Find(What:=Target, _
>After:=Sh.Range("A1"), _
>LookIn:=xlValues, _
>LookAt:=xlPart, _
>SearchOrder:=xlByRows, _
>SearchDirection:=xlNext, _
>MatchCase:=False)
>If rng Is Nothing Then
>MsgBox Target & " Not found"
>Exit Sub
>End If
>Set rng3 = rng
>Worksheets("sheet1").Unprotect Password:="jenjen1"
>rng.Offset(3, 0).ClearContents
>If Application.CountA(rng3) > 2 Then
>Else
>Set rng3 = rng.Offset(3, 0)
>End If
>rw = rng3.Row
>rng3.Resize(nrow * 2, 1).EntireRow.Insert
>For Each cell In rngC
>If Not IsEmpty(cell) Then
>If IsNumeric(cell) Then
>If cell > 0 Then
>Cells(cell.Row, 5).Copy
>Sh.Cells(rw, "c").PasteSpecial Paste:=xlPasteValues
>Cells(cell.Row, 2).Copy
>Sh.Cells(rw, "B").PasteSpecial Paste:=xlPasteValues
>rw = rw + 2
>End If
>End If
>End If
>Next
>Worksheets("sheet1").Protect Password:="jenjen1"
>End Sub

Pretty much the same as module and compiled dlls.

I dont think you can as it is fixed into the program when compiled. You can hide it though.


Soryy I could not be of any help

Daniel