Hi Marianne Welcome to VBAX

This code will do what you want (you'll have to change the toolbar name). It runs fine if the row index is greater than the existing number of rows (it just puts it on the last one in that case). Note that the Menu bar (File, Edit, etc) is counted in the commandbars collection[VBA]Sub test()

With Application.CommandBars("Custom 1")
.Position = msoBarTop
.Left = 0
.RowIndex = 3
End With

End Sub[/VBA]