Solved: Pop Up Window to Select Range

[r_know]

Dear All,

I required when I Macro run then open the POP Window to select range.

Here, I want Pop Up window says, Select Range then Range


ActiveSheet.Range("B2:I18").Select


Kindly Advise.

Regards,

RL

[Bob Phillips]

Set rng = Application.InputBox("Select a Range",Type:=8)

[r_know]

Thanks;; POP window Open perfect,

But when I input range A1:I20 which not selecting.
Also, if I need to cancel, then which code should follow to close POP Window.

Regards,
RL

[Bob Phillips]

It only gets a range variable, you then have to select it.

Test the range variable for Nothing to exit.

[r_know]

Dear Xld,

My Aim to Print Selected Area. Therefore, I want POP up window to select range; but after selection PRINT does not coming, can you check code pls?

Regards, RL


Sub Printsheet1()

'Select Range of PRINT

Set Rng = Application.InputBox("Select a Range", Type:=8)
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.5)
.RightMargin = Application.InchesToPoints(0.5)
.TopMargin = Application.InchesToPoints(0.5)
.BottomMargin = Application.InchesToPoints(0.5)
.HeaderMargin = Application.InchesToPoints(0.5)
.FooterMargin = Application.InchesToPoints(0.5)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperLetter
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.PrintErrors = xlPrintErrorsDisplayed
End With
Selection.PrintOut Copies:=1, Collate:=True
ActiveSheet.Range("B2").Select
End Sub

[Bob Phillips]

Sub Printsheet1()
Dim rng As Range
'Select Range of PRINT

On Error Resume Next
Set rng = Application.InputBox("Select a Range", Type:=8)
On Error GoTo 0
If Not rng Is Nothing Then

With ActiveSheet.PageSetup

.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.5)
.RightMargin = Application.InchesToPoints(0.5)
.TopMargin = Application.InchesToPoints(0.5)
.BottomMargin = Application.InchesToPoints(0.5)
.HeaderMargin = Application.InchesToPoints(0.5)
.FooterMargin = Application.InchesToPoints(0.5)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperLetter
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.PrintErrors = xlPrintErrorsDisplayed
End With

rng.PrintOut Copies:=1, Collate:=True
End If
End Sub

[r_know]

Great XLD

Many Thanks....

It worked....

Regards,
RL