I have a workbook open but not active named 123Q and a
Range("Input!ab2") = 123

Private Sub CommandButton2_Click() 'Generates PDF Quote Form

Dim CurrentPrinter As Variant
Dim quotenumber As String
Dim quotenumber1 As String

quotenumber = Range("Input!ab2")
quotenumber1 = quotenumber + "Q" + ".xls"

'Windows("quotenumber1").Activate

Why do i get an error message "subscript out of range"

oldjay

On 23 Nov., 18:04, Oldjay wrote:
I have a workbook open but not active named 123Q and a
Range("Input!ab2") = 123

Private Sub CommandButton2_Click() 'Generates PDF Quote Form

Dim CurrentPrinter As Variant
Dim quotenumber As String
Dim quotenumber1 As String

quotenumber = Range("Input!ab2")
quotenumber1 = quotenumber + "Q" + ".xls"

'Windows("quotenumber1").Activate

Why do i get an error message "subscript out of range"

oldjay

Hi

Try this:

quotenumber=Workbook("123Q").Worksheets("Input").R ange("AB2").Value

Regards,

Per

Can't use 123Q because the inactive workbook is variable.

" wrote:

On 23 Nov., 18:04, Oldjay wrote:
I have a workbook open but not active named 123Q and a
Range("Input!ab2") = 123

Private Sub CommandButton2_Click() 'Generates PDF Quote Form

Dim CurrentPrinter As Variant
Dim quotenumber As String
Dim quotenumber1 As String

quotenumber = Range("Input!ab2")
quotenumber1 = quotenumber + "Q" + ".xls"

'Windows("quotenumber1").Activate

Why do i get an error message "subscript out of range"

oldjay

Hi

Try this:

quotenumber=Workbook("123Q").Worksheets("Input").R ange("AB2").Value

Regards,

Per

Try changing from:

quotenumber = Range("Input!ab2")

To:

quotenumber = Worksheets("Input").Range("ab2")



"Oldjay" wrote:

I have a workbook open but not active named 123Q and a
Range("Input!ab2") = 123

Private Sub CommandButton2_Click() 'Generates PDF Quote Form

Dim CurrentPrinter As Variant
Dim quotenumber As String
Dim quotenumber1 As String

quotenumber = Range("Input!ab2")
quotenumber1 = quotenumber + "Q" + ".xls"

'Windows("quotenumber1").Activate

Why do i get an error message "subscript out of range"

oldjay

Private Sub CommandButton2_Click() 'Generates PDF Quote Form

Dim CurrentPrinter As Variant
Dim quotenumber As String
Dim quotenumber1 As String

quotenumber = Worksheets("Input").Range("ab2")
quotenumber1 = quotenumber + "Q" + ".xls"

Windows("quotenumber1").Activate

Tried it but have the same result

"JLGWhiz" wrote:

Try changing from:

quotenumber = Range("Input!ab2")

To:

quotenumber = Worksheets("Input").Range("ab2")



"Oldjay" wrote:

I have a workbook open but not active named 123Q and a
Range("Input!ab2") = 123

Private Sub CommandButton2_Click() 'Generates PDF Quote Form

Dim CurrentPrinter As Variant
Dim quotenumber As String
Dim quotenumber1 As String

quotenumber = Range("Input!ab2")
quotenumber1 = quotenumber + "Q" + ".xls"

'Windows("quotenumber1").Activate

Why do i get an error message "subscript out of range"

oldjay

Take the quotes off the last line:

Windows(quotenumber1).Activate

With that change it works for me in a regular module.

But I agree with the other posts that suggest a different way to reference
the range, although I don't think that's why you are seeing the error.

--
Tim Zych
SF, CA


"Oldjay" wrote in message
...
I have a workbook open but not active named 123Q and a
Range("Input!ab2") = 123

Private Sub CommandButton2_Click() 'Generates PDF Quote Form

Dim CurrentPrinter As Variant
Dim quotenumber As String
Dim quotenumber1 As String

quotenumber = Range("Input!ab2")
quotenumber1 = quotenumber + "Q" + ".xls"

'Windows("quotenumber1").Activate

Why do i get an error message "subscript out of range"

oldjay

Thanks That did the trick

"Tim Zych" wrote:

Take the quotes off the last line:

Windows(quotenumber1).Activate

With that change it works for me in a regular module.

But I agree with the other posts that suggest a different way to reference
the range, although I don't think that's why you are seeing the error.

--
Tim Zych
SF, CA


"Oldjay" wrote in message
...
I have a workbook open but not active named 123Q and a
Range("Input!ab2") = 123

Private Sub CommandButton2_Click() 'Generates PDF Quote Form

Dim CurrentPrinter As Variant
Dim quotenumber As String
Dim quotenumber1 As String

quotenumber = Range("Input!ab2")
quotenumber1 = quotenumber + "Q" + ".xls"

'Windows("quotenumber1").Activate

Why do i get an error message "subscript out of range"

oldjay