Hi,

I have excel1.xls and excel2.xls. In excel1.xls i have a certain bit of code
that i need to copy into excel2.xls. The code is for the command button i
have in excel2.xls. This code runs when i click the command button.

the code i am using to copy is:
Sub CopyModule(SourceWB As Workbook, strModuleName As String, TargetWB As
Workbook)

' copies a module from one workbook to another
' example:
' CopyModule Workbooks("Book1.xls"), "Module1", Workbooks ("Book2.xls")
Dim strFolder As String, strTempFile As String
strFolder = SourceWB.Path
If Len(strFolder) = 0 Then strFolder = CurDir
strFolder = strFolder & ""
strTempFile = strFolder & "~tmpexport.bas"
On Error Resume Next
SourceWB.VBProject.VBComponents(strModuleName).Exp ort strTempFile
TargetWB.VBProject.VBComponents(5).Import strTempFile

Kill strTempFile
On Error GoTo 0
End Sub

The code that needs to be copied is something like this..
Private Sub CommandButton1_Click()
MsgBox "hi"
End Sub

This code needs to be copied into the "Sheet1". But when i copy the code it
goes into a new module of the excel2.xls instead of Sheet1.

What is the code i should follow inorder to copy the code into the sheet1
instead of a module?

--
Senior Consultant
Kanbay Software (I) Pvt. Ltd.
http://www.kanbay.com/