How about this...

Sub test()

Workbooks("Weekly Modified Work Report Ariss.xls").Names("Data"). _
RefersToRange.Copy Destination:= _
Application.InputBox("Please select a range.", Type:=8)

Workbooks("Weekly Modified Work Report Camtac.xls").Names("Data"). _
RefersToRange.Copy Destination:= _
Application.InputBox("Please select a range.", Type:=8)

End Sub
--
HTH...

Jim Thomlinson


"Lweiss" wrote:

here is the macro

Windows("Weekly Modified Work Report Ariss.xls").Activate
Application.Goto Reference:="Data"
Selection.Copy
Windows("Weekly Modified Work Report.xls").Activate
ActiveSheet.Paste

I want to stop the macro here so that I can go to my main spreadsheet
"Weekly Modified Work Report" to select the cell to run the next macro:

Windows("Weekly Modified Work Report Camtac.xls").Activate
Application.Goto Reference:="Data"
Selection.Copy
Windows("Weekly Modified Work Report.xls").Activate
ActiveSheet.Paste

and so on for 20 spreadsheets.

What is the best way to do this?

"Lweiss" wrote:

I have a main spreadsheet that contains a macro that goes to 25 different
spreadsheet and copies information and paste to the main spreadsheet. I
would like to pause the macro after each paste to select the row for the next
spreadsheet. How can I do this?