In this case, it was:
Newsgroups: microsoft.public.excel.misc
Subject: Toggle Marco . . .
Tom Ogilvy wrote:
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
"Dave Peterson" wrote in message
...
You have one response at your other post.
Fable wrote:
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!
--
Fable
------------------------------------------------------------------------
Fable's Profile:
http://www.excelforum.com/member.php...fo&userid=2185
View this thread:
http://www.excelforum.com/showthread...hreadid=271920
--
Dave Peterson
--
Dave Peterson