i tried bob's first because it was closest to my own, but it still
breaks on "activate" with "application-defined or object-defined
error".

then i tried dave's variation on bob's code, but it still breaks on
the 2nd "activate" with the same error. i have stared at the coding &
the name of the page till i am blue in the face & i am sure they are
identical.

then i tried the application.goto codes & they also failed with the
same error. the name of the sheet has NOT changed. the original
coding did NOT change. just one day i opened it up & it didn't work,
& now it still won't. any way to verify the sheet name in the
immediate window?

thanks for all your help
susan


On Mar 30, 3:10*pm, "Bob Phillips" wrote:
Add a dot

With ThisWorkbook
* * *With .Worksheets("Indirect Costs")
* * * * * .Activate
* * * * * .Range("A1").Select
* * *End With
End With

--

HTH

Bob

"Susan" wrote in message

...



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
++++++++++++++++++++++++++++++++++++++- Hide quoted text -

- Show quoted text -