Forum home » Delegate support and help forum » Microsoft VBA Training and help » VBA

VBA

ResolvedVersion 2003

Thu 13 Aug 2009, 16:59 Delegate Trevor said...

Trevor has attended:
Excel Advanced course
Excel VBA Intro Intermediate course
Access Intermediate course
Excel VBA Advanced course

VBA

Help!

Have used the two simplest macros below a lot and now one will not work. I cannot get the two worksheets back using "un hidden" - they are both there as cannot duplicate names for new sheets and can see them in VB editor. Any advice - thanks !

Trevor

Sub Very_Hidden()

Sheets("Intercompany").Visible = xlVeryHidden
Sheets("Lookups").Visible = xlVeryHidden

End Sub

Sub Un_Hidden()

Sheets("Intercompany").Visible = xlVeryHidden
Sheets("Lookups").Visible = xlVeryHidden

End Sub

Mon 17 Aug 2009, 09:31 Trainer Stephen said...

RE: VBA

hi Trevor

Thanks for your question

This is hard to answer without seeing the workbook in question

Could you email me a copy so that I can give your question more detailed attention

my email is stephen@stl-training.co.uk

Regards

Stephen

Tue 18 Aug 2009, 06:54 Delegate Trevor said...

RE: VBA

Stephen

Found a line of code on the web to 'unhide all' so the problem is solved.

Thanks anyway

Trevor

Training courses

98.7 % recommend us

More live stats...

Training information:

Active questions
Advanced/consultancy questions
Today's questions
Unanswered questions
Popular forum topics

VBA tip:

Add A New Sheet at the end of the Workbook

To add a new sheet at the end of the workbook you need to count the sheets in the workbook using:

Sheets.Count

Then use this value as the rank of the sheet after which you want to add the new sheet:

Sheets.Add After:=Sheets(Sheets.Count)

View all VBA hints and tips

VBA

VBA

RE: VBA

RE: VBA

VBA articles

VBA tip:

Add A New Sheet at the end of the Workbook