Transfer information on save comand

[startzer]

How do i tansfer contents from one workbook to a seperate workbook on a save command...

ie...

Save workbook #1

workbook #2 : A1 = workbook #1 : A1....?

 

[bjurney]

Something like this should do the trick, just stick this in the ThisWorkbook section

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
 
Range("A1:AC" & Cells(Rows.Count, 1).End(xlUp).Row).Copy
        Workbooks.Add
        Range("A1").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
   Application.CutCopyMode = False
    Columns("J:J").delete Shift:=xlToLeft
    
       ActiveWorkbook.SaveAs Filename:="C:\My Workbook"
    ActiveWorkbook.Close
 
End Sub