Pausing a Print macro and fixing print range

[Mabocat]

OK have a print macro that works well and combined it with Post #12 from
https://www.mrexcel.com/forum/excel-questions/39788-old-excel-macro-language-2.html
with a slight modification.

This is it from my spreadsheet

 Application.Wait (Now + TimeValue("0:00:20"))
    Application.Goto Reference:="Tawnton_print"
    ActiveSheet.PageSetup.PrintArea = "[COLOR=#ff0000]$A$1:$L$51[/COLOR]"
    ActiveWindow.SelectedSheets.PrintOut From:=2, To:=2, Copies:=2, Collate _
        :=True, IgnorePrintAreas:=False
    Range("A1").Select
End Sub

What I would like it to do is not only wait or pause, but bring up a Message box with the Words "Reload Tawnton pages" with a OK button so once I have physically re-loaded the pages ( which are on the reverse side of previously printed pages), pressing return key or clicking on the OK button, the macro continues to process & print.

I also new to amend the text colour red words to be "Tawnton_print" range as this could vary from A1:L51 to A1: L40 or A1:L60

previous advice has been to use CurrentRegion.Select but not sure where is goes in the above coding

Ron

 

[Mabocat]

I managed to find out about a message box using MsgBox and removed the
Application.Wait (Now + TimeValue("0:00:20"))

works well

 

[Mabocat]

So a question re range variations

I have this instruction

ActiveSheet.PageSetup.PrintArea = "$A$1:$L$51"

but because the range could change even though it was first selected like this

Application.Goto Reference:="Tawnton_print"

it seems to me after some testing that this will do the trick to allow for increase/decrease in the actual range after the Goto instrcution

Selection.CurrentRegion.Select

so instead of this

Application.Goto Reference:="Tawnton_print"
    ActiveSheet.PageSetup.PrintArea = "$A$1:$L$51"
    ActiveWindow.SelectedSheets.PrintOut From:=2, To:=1, Copies:=2,

it will be this

Application.Goto Reference:="Tawnton_print"
    Selection.CurrentRegion.Select
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1,

is this the best way of handling possible actual range variations ?

Ron