please help, macro stops after opening a sheet

[shackbully]

this macro stops at the beginning of the fourth line, after it opens the p2_report file. it will step through fine, and it works fine if the deyboard shortcut is ctrl+j. it is always run in the file it was written.

been working on this for too long.

thanks for the help



' Keyboard Shortcut: Ctrl+Shift+j
'
Range("AP61:AY113").Select
Selection.Copy
Workbooks.Open Filename:="c:\p2_daily\p2_report.xls"
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:="C:\p2_daily\Morningreports\p2_daily" & Format(Date, "YYMMDD") - 1 & Op & ".xls", _
FileFormat:=xlExcel9795, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close
Range("AP54").Select
End Sub

 

[smi123]

You just have not told the macro where to paste the copied data.

Insert a line before the 4th Line (paste.......)
Then write the code to position the cursor at the cell you wish to paste the copied data where xx is the cell address (not the range just the start cell).

range("XX").select