Use Cell range instead of message box type 8

[jasonfhaught]

I found a bit of code that works but would like to use without using the inputbox type 8

Set rPrintArea = Application.InputBox(Prompt:="Use Mouse to select area to Print.", Title:="Select Print Area", Type:=8)

I want to be able to do is Set rPrintArea = Range("A1:C20") but I have not yet been able to make it work.

Could you help me and explain what is going on with the statement

 

[jasonfhaught]

I found a bit of code that works but would like to use without using the inputbox type 8

Set rPrintArea = Application.InputBox(Prompt:="Use Mouse to select area to Print.", Title:="Select Print Area", Type:=8)

I want to be able to do is Set rPrintArea = Range("A1:C20") but I have not yet been able to make it work.

Could you help me and explain what is going on with the statement

I should say that I get "object variable or with block variable not set"

Dim rPrintArea As Range
rPrintArea = Range("$C1:O1500")

 

[Micron]

That is different from what you posted, which is what I would have suggested should work. When you declare an object variable, you must Set it to something (before you can use it), and you did use the Set keyword in your first post but not your second post. At the end of your code, it is advisable to clear object variables from memory:

Set rPrintArea = Nothing

A range is an object, btw.

 

[jasonfhaught]

I should say that I get "object variable or with block variable not set"

Dim rPrintArea As Range
rPrintArea = Range("$C1:O1500")

I just realized i forgot to use Set should be

Dim rPrintArea As Range
Set rPrintArea = Range($C1:$O1500")