
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Workbooks.Open Filename:= _
"D:US Labor 2008-2009Materiale SitoVolley - Allieve.xlsm"
Windows("Partite VOLLEY2009-2010.xls").Activate
Range("A3:J16").Select
Selection.Copy
Windows("Volley - Allieve.xlsm").Activate
Range("A3").Select
ActiveSheet.Paste
End Sub |
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Workbooks.Open Filename:= _
"D:US Labor 2008-2009Materiale SitoVolley - Allieve.xlsm"
Windows("Partite VOLLEY2009-2010.xls").Activate
Range("A3:J16").Select
Selection.Copy
Windows("Volley - Allieve.xlsm").Activate
Range("A3").Select
ActiveSheet.Paste
End Sub |
