Hi! I have a problem when copying a worksheet to a new workbook using VBA.

I have an activeX combox box in my source worksheet, and a Sub associated with it and execute commmand when its changed. When I try to copy this worksheet to another workbook, the code associated with this worksheet also get copied. And because of the activeX control box also get copied to the destination file, its "sense" that its been change and try to activate the sub --- and an error come out because all other components required in the code are missing in the destination workbook.

Is there any way that I can stop the Sub from running in the destination file? I cannot delete the code using VBA before I copy because the VBA is password protected. I tried to move the code to a module but it seems like it cannot sense the "change" in the activeX box once it is not in the worksheet.

Here's the copy worksheet code

Private Sub Extract_click()

'Confirm FinalCopy.xlxm Open
Dim iRet As Integer
Dim strPrompt As String
Dim strTitle As String

strPrompt = "Please confirm Excel File [FinalCopy] is opened"
strTitle = "Require [FinalCopy] to Proceed"
iRet = MsgBox(strPrompt, vbYesNo, strTitle)

If iRet = vbYes Then

'Copy worksheet
Application.ScreenUpdating = False
Dim NewShtName As String
NewShtName = Range("A47").Value
Sheets("Timesheet").Copy After:=Workbooks("FinalCopy.xlsm").Sheets("Summary")
ActiveSheet.Name = NewShtName

Else
Exit Sub

End If

End Sub

Here's the code associated with worksheet:

Private Sub TimeKeepers_Change()

'Execute TimeKC in Module 4
Call TimeKC
On Error Resume Next

End Sub

Thanks in advance for all the help. I'm new in VBA and please excuse me if my code seems "strange".

Tommy