Ignoring 1 of two modules

Hi all,

I am still perservering with my Purchase order project.


I have managed to get it almost done with lots of help from here the last issue I have is this:

The module I want transferred is working the assigning of the macro within that module to the button is working, however, when it gets to the FillSalesSheet section it opens the said workbook but then jumps to the module and the FillSalesSheet in that.

Module 1 which I would like ignored on the newly formed workbooks looks like this:

Private Sub Workbook_Open()
    Sheets("Purchase Order", "Contiuation Sheet").Activate
    Sheets("Purchase Order", "Contiuation Sheet").Protect , UserInterfaceOnly:=True
End Sub
 
Sub PrintInvoice()
Sheets("Purchase Order").PrintOut Copies:=1

If MsgBox("Is there a continuation sheet?", _
    vbYesNo + vbQuestion, "Confirmation") = vbNo Then
        FillSalesList
        Copy_Save
        NewInvoice
        
Else
    Sheets("Continuation Sheet").PrintOut Copies:=1
    FillSalesList1
    NewInvoice
    Copy_Save
    AllNew
   
End If
    With Sheets("Purchase Order").Unprotect
[K3] = [K3] + 1
Sheets("Purchase Order").Protect
End With
End Sub

 Private Sub FillSalesList()
    With Sheets("Sales").Columns(1).Rows(65536).End(xlUp)
        .Offset(1, 0) = Sheet1.[K3]
        .Offset(1, 1) = Sheet1.[I9]
        .Offset(1, 2) = Sheet1.[B9]
        .Offset(1, 3) = Sheet1.[K43]
        .Offset(1, 4) = Sheet1.[K44]
        .Offset(1, 5) = Sheet1.[K45]
        .Offset(1, 6) = Sheet1.[K1].Text
    End With
End Sub
 'This saves details of the invoice on another sheet
Private Sub FillSalesList1()
    With Sheets("Sales").Columns(1).Rows(65536).End(xlUp)
        .Offset(1, 0) = Sheet1.[K3]
        .Offset(1, 1) = Sheet1.[I9]
        .Offset(1, 2) = Sheet1.[B9]
        .Offset(1, 3) = Sheet7.[K54]
        .Offset(1, 4) = Sheet7.[K55]
        .Offset(1, 5) = Sheet7.[K56]
        .Offset(1, 6) = Sheet1.[K1].Text
    End With
End Sub
 
 'Clears the invoice sheet
Sub NewInvoice()

    With Sheet1
        .Unprotect
        Cells.Locked = False
        [A19:J19, I1:K3, I43:J45, I50:I54, B50:B54, B10:B14, K20:K41].Locked = True
         'Clear details of last sale
        [A20:J41, I9, B9, B49, I49].ClearContents
        [B9].Select
 
        .Protect
        End With
        
  End Sub
  
Sub AllNew()
    With Sheet7
        .Unprotect
        .Cells.Locked = False
        .Range("A13:J13, J14:J53, I54:J56, I1:K3, K14:K53").Locked = True
        .Range("A14:J53").ClearContents
        .Protect
    End With
End Sub

     
Sub Copy_Save()
 


Dim myFileName
    
Sheets(Array("Purchase Order", "Continuation Sheet")).Copy

myFileName = Application.GetSaveAsFilename(fileFilter:="Excel Files (*.xls), *.xls")

If myFileName = False Then

    MsgBox "Save cancelled", vbCritical
    Exit Sub
    
End If

    ActiveWorkbook.SaveAs myFileName
Transfer_Module
    ActiveWorkbook.Protect
    ActiveWorkbook.Close
    


End Sub



Sub Transfer_Module()

Dim FileName As String

FileName = "C:\Module2.bas"

ThisWorkbook.VBProject.VBComponents("Module2").Export FileName

ActiveWorkbook.VBProject.VBComponents.Import FileName
    
Kill FileName


End Sub

Module 2 looks like:

Private Sub Workbook_Open()
Sheets("Purchase order").Buttons("Button 1").OnAction = "NewPrint"

    Sheets("Purchase Order", "Continuation Sheet").Activate
    Sheets("Purchase Order", "Continuation Sheet").Protect , UserInterfaceOnly:=True
End Sub

Sub NewPrint()
Sheets("Purchase Order").PrintOut Copies:=1

If MsgBox("Is there a continuation sheet?", _
    vbYesNo + vbQuestion, "Confirmation") = vbNo Then
        FillSalesListNew
        
Else
 Sheets("Continuation Sheet").PrintOut Copies:=1
    FillSalesListNew1
        End If
    End Sub
    

 Private Sub FillSalesListNew()
    With Workbooks("Purchase order 26-01-10(version 1).xls").Sheets("Sales").Columns(1).Rows(65536).End(xlUp)
        .Offset(1, 0) = Sheet1.[K3]
        .Offset(1, 1) = Sheet1.[I9]
        .Offset(1, 2) = Sheet1.[B9]
        .Offset(1, 3) = Sheet1.[K43]
        .Offset(1, 4) = Sheet1.[K44]
        .Offset(1, 5) = Sheet1.[K45]
        .Offset(1, 6) = Sheet1.[K1].Text
    End With
End Sub
 'This saves details of the invoice on another sheet
Private Sub FillSalesListNew1()
    With Workbooks("Purchase order 26-01-10(version 1).xls").Sheets("Sales").Columns(1).Rows(65536).End(xlUp)
        .Offset(1, 0) = Sheet1.[K3]
        .Offset(1, 1) = Sheet1.[I9]
        .Offset(1, 2) = Sheet1.[B9]
        .Offset(1, 3) = Sheet7.[K54]
        .Offset(1, 4) = Sheet7.[K55]
        .Offset(1, 5) = Sheet7.[K56]
        .Offset(1, 6) = Sheet1.[K1].Text
    End With
End Sub

It opens the Purchase order 26.01.10 (version 1) then tries to run the FillSalesSheet form there.

If I run the FillSalesSheetNew in Module 2 on its own it say Subscript out of range.

Can anyone help.

I have attached the original workbook.

Thank you in advance