more info. i looked in the project properties & found that the
"Indirect Costs" sheet was sheet 4. so i changed the application.goto
coding to Worksheets(4).range("a1").select. and it selected the wrong
sheet. so in the immediate window i typed ?
ThisWorkbook.Worksheets(4).name & got a different name than the one i
expected. tried it with several other of the worksheets & got
additionally wrong information.

i think my virus is not gone after all.

susan


On Mar 31, 7:06*am, Susan wrote:
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 -- Hide quoted text -

- Show quoted text -