Original User: alnesbit
Hello,
Well, that didn't work either. I get Run time error 91, Object variable or With block variable not set.
It debugs to the line after the '*.
Private Sub LaunchPToolbar_Click()
Dim pCmdBars As ICommandBars
Set pCmdBars = ThisDocument.CommandBars
Dim pCmdBar As ICommandBar
Set pCmdBar = pCmdBars.Find("Normal.ThisDocument.ParcelSplit")
'*
If Not pCmdBar.IsVisible Then
pCmdBar.Dock esriDockToggle
Else
pCmdBar.Dock esriDockToggle
End If
End Sub
Any other thoughts or ideas? (Yes my toolbar is in the normal and it is called "ParcelSplit")
Thanks in advance,