rjwatsoniii
New Member
- Joined
- Jan 27, 2009
- Messages
- 2
When I click a button my macro errors out and indicates an issue with the line: "Cells.Select" below:
Any ideas:
Private Sub CommandButton1_Click()
'
Range("D7:D19").Select
Selection.Copy
Range("C7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ChDir "J:\Processing\"
Workbooks.Open Filename:="J:\Processing\_testamy\Amys CETO DOWNLD.xls"
Cells.Select
Application.CutCopyMode = False
Selection.QueryTable.Refresh BackgroundQuery:=False
ActiveWorkbook.Save
ActiveWindow.Close
ActiveWorkbook.Save
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
This is Excel 2003 SP3 on Windows XP SP2.
Thank you.
Rich
Any ideas:
Private Sub CommandButton1_Click()
'
Range("D7:D19").Select
Selection.Copy
Range("C7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ChDir "J:\Processing\"
Workbooks.Open Filename:="J:\Processing\_testamy\Amys CETO DOWNLD.xls"
Cells.Select
Application.CutCopyMode = False
Selection.QueryTable.Refresh BackgroundQuery:=False
ActiveWorkbook.Save
ActiveWindow.Close
ActiveWorkbook.Save
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
This is Excel 2003 SP3 on Windows XP SP2.
Thank you.
Rich