P
Paul
I have written/recorded a little macro that removes an old
version of a worksheet and replaces it with the latest
version.I now wish to replace a old macro with a newer
version too.Can you give me the code that would transfer a
module from a new workbook(jul021) to the "old"
workbook,which happens to be called "mylinkname"
Sub update()
Application.DisplayAlerts = False
'Workbooks.Add Template:="\\w2k107132\Brendons
Docs\Templates\jul02.xlt"
Windows("jul021").Visible = False
Sheets("Cover").Select
mylinkname = Range("B6")
Sheets("Program").Select
Sheets("Program").Delete
Windows("jul021").Visible = True
Sheets("Program").Select
Sheets("Program").Copy Before:=Workbooks(mylinkname
& ".xls").Sheets(2)
ActiveWorkbook.ChangeLink Name:="jul021",
NewName:=mylinkname & ".xls", Type:= _
xlExcelLinks
Windows("jul021").Visible = False
Application.DisplayAlerts = True
End Sub
version of a worksheet and replaces it with the latest
version.I now wish to replace a old macro with a newer
version too.Can you give me the code that would transfer a
module from a new workbook(jul021) to the "old"
workbook,which happens to be called "mylinkname"
Sub update()
Application.DisplayAlerts = False
'Workbooks.Add Template:="\\w2k107132\Brendons
Docs\Templates\jul02.xlt"
Windows("jul021").Visible = False
Sheets("Cover").Select
mylinkname = Range("B6")
Sheets("Program").Select
Sheets("Program").Delete
Windows("jul021").Visible = True
Sheets("Program").Select
Sheets("Program").Copy Before:=Workbooks(mylinkname
& ".xls").Sheets(2)
ActiveWorkbook.ChangeLink Name:="jul021",
NewName:=mylinkname & ".xls", Type:= _
xlExcelLinks
Windows("jul021").Visible = False
Application.DisplayAlerts = True
End Sub