This morning I got fed up with the toolbar plonking itself down mid-screen in my worksheet, so:
Code: Select all
Function AlignMyBar(oBar As CommandBar)
Dim lng As Long
For lng = 1 To Application.CommandBars.Count
If Application.CommandBars(lng).Visible Then
If Application.CommandBars(lng).Name = "Standard" Then
oBar.RowIndex = Application.CommandBars(lng).RowIndex
oBar.Left = 0
' Exit For
Else
End If
Else
End If
Next lng
End Function