I wouldn't use this syntax.

Application.Goto Range("'Indirect Costs'!A1")

Depending on where the code is located (like a sheet module), it may not work.



Dana DeLouis wrote:

On 3/30/2010 3:17 PM, Susan wrote:
this code bit has been working forever. recently had a virus& had to
reinstall microsoft office 07. now it won't work. i'm assuming
there's some wording difference it's looking for - can anybody help me
out?
thanks.
susan
++++++++++++++++++++++++++++++++++++++
ThisWorkbook.Worksheets("Indirect Costs").Select

With Worksheets("Indirect Costs")
.Range("a1").Select
End With
++++++++++++++++++++++++++++++++++++++
i also tried the following which stops on "Activate":

With ThisWorkbook
With Worksheets("Indirect Costs")
.Activate
.Range("a1").Select
End With
End With
++++++++++++++++++++++++++++++++++++++

Just another way.
This requires you to add ' around the tab name because the name has a
space in it

Application.Goto Range("'Indirect Costs'!A1")

= = = = = = =
HTH :)
Dana DeLouis

--

Dave Peterson