Toggle Marco . . .

[Fable]

Greetings,

Im trying to get a macro button to "toggle" to cycle through th
different grouped views I created but I keep getting a compiling error
VBA is not my forte as maybe you can see and thoughts what Im doin
wrong?


Sub Toggle_View()
'
Sheets("Sheet1").Select
With ActiveSheet
If ActiveSheet.Outline.ShowLevels RowLevels:=1 = True then
ActiveSheet.Outline.ShowLevels RowLevels:=2 False
ActiveSheet.Outline.ShowLevels RowLevels:=3 False
Else
ActiveSheet.Outline.ShowLevels RowLevels:=2 True
ActiveSheet.Outline.ShowLevels RowLevels:=1 False
ActiveSheet.Outline.ShowLevels RowLevels:=3 False
Else
ActiveSheet.Outline.ShowLevels RowLevels:=3 True
ActiveSheet.Outline.ShowLevels RowLevels:=1 False
ActiveSheet.Outline.ShowLevels RowLevels:=2 False
End If
End With
End Sub

Thanking you in advance

 

[Dave Peterson]

You have one response at your other post.

Greetings,

Im trying to get a macro button to "toggle" to cycle through the
different grouped views I created but I keep getting a compiling error,
VBA is not my forte as maybe you can see and thoughts what Im doing
wrong?

Sub Toggle_View()
'
Sheets("Sheet1").Select
With ActiveSheet
If ActiveSheet.Outline.ShowLevels RowLevels:=1 = True then
ActiveSheet.Outline.ShowLevels RowLevels:=2 False
ActiveSheet.Outline.ShowLevels RowLevels:=3 False
Else
ActiveSheet.Outline.ShowLevels RowLevels:=2 True
ActiveSheet.Outline.ShowLevels RowLevels:=1 False
ActiveSheet.Outline.ShowLevels RowLevels:=3 False
Else
ActiveSheet.Outline.ShowLevels RowLevels:=3 True
ActiveSheet.Outline.ShowLevels RowLevels:=1 False
ActiveSheet.Outline.ShowLevels RowLevels:=2 False
End If
End With
End Sub

Thanking you in advance!

 

[Tom Ogilvy]

Dave,
If you know where the other post is, why not add that bit of information in
case someone wants to see your solution. (like worksheet.functions or misc
is enough).

Just a thought.

--
Regards,
Tom Ogilvy

You have one response at your other post.

 

[Dave Peterson]

In this case, it was:

Newsgroups: microsoft.public.excel.misc
Subject: Re: Toggle Marco . . .

Dave,
If you know where the other post is, why not add that bit of information in
case someone wants to see your solution. (like worksheet.functions or misc
is enough).

Just a thought.

--
Regards,
Tom Ogilvy

You have one response at your other post.