Sub ViewAutotextMenu()
With CommandBars("AutoText")
.Visible = Not .Visible
End With
End Sub
--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP
My web site www.gmayor.com
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
JustSomeGuy wrote:
> Seems like it should go something like this - but it doesn't work:
>
> Sub ViewAutotextMenu()
> IF CommandBars("AutoText").Visible = True
> Then CommandBars("AutoText").Visible = False
> End If
> if CommandBars("AutoText").Visible = False
> Then CommandBars("AutoText").Visible = True
> End If
> End Sub