Hi Billy,

Something along these lines :

Set MyBar = CommandBars.Add(Name:="WWEnviro", _
Position:=msoBarFloating, temporary:=True)

With MyBar
.Top = 175
.Left = 650

etc ....

HTH
Cheers
Carim