alu
08-20-2007, 03:02 AM
Hi, got this code which inserts the a header into a workbook. It was working untill I started playing with it...now it doesn't. The debugger stops at the commented line but I cant quite work out what is happening/ missing.
any ideas? thanks...
'Insert Header
Sheets(Array("Solutions", "Colin ", "Richard ", "Mark ", _
"Julie ", "Jeff ")).Select
Sheets("Solutions").Activate
Range("A1").Select
Workbooks.Open FileName:= _
"D:\My Documents\Header template.xls"
Sheets("Header").Select //Problem lies here is there a missing ""?
Rows("1:1").Select
Selection.Copy
Windows("download.xls").Activate
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Range("A1").Select
Sheets("Solutions").Select
any ideas? thanks...
'Insert Header
Sheets(Array("Solutions", "Colin ", "Richard ", "Mark ", _
"Julie ", "Jeff ")).Select
Sheets("Solutions").Activate
Range("A1").Select
Workbooks.Open FileName:= _
"D:\My Documents\Header template.xls"
Sheets("Header").Select //Problem lies here is there a missing ""?
Rows("1:1").Select
Selection.Copy
Windows("download.xls").Activate
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Range("A1").Select
Sheets("Solutions").Select