Setting print area on exported sheet help

I have a sheet that gets exported and depending on a response to input box from user I want the print area to reflect a certain range on the exported sheet.

Please Login or Register  to view this content.

If the repsonse answer "RunNo" is between 1-9 then I want the print area set as follows

if RunNo 1-9
ActiveSheet.PageSetup.PrintArea = "$A$1:$k$56"

if RunNo 10-18
ActiveSheet.PageSetup.PrintArea = "$A$58:$k$113"

if RunNo 11-27
ActiveSheet.PageSetup.PrintArea = "$A$115:$k$170"

if RunNo 28-36
ActiveSheet.PageSetup.PrintArea = "$A$172:$k$227"

See in the VBA inner help If … Then … ElseIf … Else … End If or Select Case block statements …