can't shorten as written. You can use goto and a referenceSub gothere()
Application.Goto reference:=[Sheet15!a2]
End Sub

But, if you want to get info or copy you don't have to select anyway. How
about more info on what you want to do .

--
Don Guillett
SalesAid Software
Granite Shoals, TX

"Aaron" wrote in message
...
Hi,

Is there a way to condense the VBA code listed below into
1 line:
Worksheets("Sheet3").Activate
Range("A3").Activate

What about
Worksheets("Sheet3").Activate
Range("A3").Select

I couldn't get what's listed below to work...
Sheets("Sheet3").Range("A3").Activate
Worksheets("Sheet3").Range("A3").Activate
Sheets("Sheet3").Range("A3").Select
Worksheets("Sheet3").Range("A3").Select

Thanks for any help you may be able to provide!
Aaron