VBA combining Select & Range Select statements

[Pinaceous]

Hi All,

I'm working with the following code:

Sub Macro11()
'
'
'

    Worksheets("REPORT").Select
    
    Worksheets("REPORT").Range("A1:L47").Select
    


End Sub

Does anyone know how to combine these terms so I have one line?

For example, I've tried variations of this code below, but I'm way off and need some help.

Sub Macro11()
'
'
'
    Dim ws As Worksheet

    For Each ws In Worksheets

     If ws.Name("REPORT") Then
    
        Range("A1:L47").Select
    
    Next ws
    
End If

End Sub

Thank you!
Pinaceous

 

[Norie]

You can't really combine them, if 'REPORT' isn't the active sheet you can't select a range on it so you need to select the sheet first.

What are you going to be doing with the selected range on 'REPORT'?

 

[Pinaceous]

Hi Norie,

I was hoping to run the sub where it selects the sheet than range by itself.

If for example, not being on that active sheet but it taking me there.

Afterwards, I'm going to 'Call' a Pdf sub that I have to produce the actual report.

I have 12 report tabs and wanted to see if there was an easier way to express this type of function.

Thanks for responding!
Pinaceous

 

[Norie]

Perhaps you could use Application.Goto?

Application.Goto Worksheets("REPORT").Range("A1:L47"), True

 

[Pinaceous]

Hell Norie!

As you can tell by the exclamation mark, that did it!

Thank you very much for your input!

Pinaceous