Code not allowing to view progress

[F6Hawk]

I have some code that works great as long as you run it from the sheet that it references, copying certain data to an output sheet. But I would like to be able to step thru it while viewing the output sheet, mostly for troubleshooting. How can I change the code to reference the proper INPUT (Sort Page) sheet while watching the results on the OUTPUT (2-2 Forecast) sheet using F8 to watch it progress?

TIA,
Hawk

        Do Until DateValue(Cells(lRow1, "M")) > DateValue(EndDate) ' Calculate forecast until EndDate is reached
          ' Copies required data from ACFT to FORECAST sheets

            Sheets("2-2 Forecast").Range("B" & lRow2).Value = Sheets("Sort Page").Range("A" & lRow1).Value
            Sheets("2-2 Forecast").Range("C" & lRow2).Value = Sheets("Sort Page").Range("B" & lRow1).Value
            Sheets("2-2 Forecast").Range("F" & lRow2).Value = Sheets("Sort Page").Range("D" & lRow1).Value
            Sheets("2-2 Forecast").Range("I" & lRow2).Value = Sheets("Sort Page").Range("F" & lRow1).Value


            lRow1 = lRow1 + 1
            lRow2 = lRow2 + 1

        Loop

[mudraker]

There is only 1 line of code that does not mention which sheet it is refering to so I will assume that is what you are refering to.


replace

Do Until DateValue(Cells(lRow1, "M")) > DateValue(EndDate)

with

Do Until DateValue(Sheets("Sort Page").Cells(lRow1, "M")) > DateValue(EndDate)