Hiding and unhiding

Posted by Deb on June 06, 2000 9:47 PM

I wrote a macro that hides all the sheets in my open work books. I am not very good at macros yet though so i use

If WorkbookIsOpen("Marta.xls") Then
Workbooks("Marta.xls").Sheets("Scrap").Visible = False
Workbooks("Marta.xls").Sheets("Final").Visible = False
end if
and name all the shhets i want to hide and unhide.
now i would like to add something to make make sure that the firt sheet is always opened when i unhide them. The first sheet is always named "summary"
any suggestions

Posted by deb on June 14, 0100 2:47 PM

Marta,

try this

Else
When Workbooks("Marta.xls").Sheets("Summary").Visible=True
Workbooks("Marta.xls").Sheets("Summary").Activate
Range("A1").Select
wend
end if

deb

Posted by deb on June 07, 0100 9:57 PM

Anyone home

placing the cursor in the right cell would be great too