how do i ut this code in a workbook open event please
Sub CreateCustomToolbar()
Dim cmdbar As CommandBar
Dim cmdbarcombo As CommandBarComboBox
Dim cmdbarbtn As CommandBarButton
Dim I As Integer
Set cmdbar = CommandBars.Add(Name:="Colour Teams")
Set cmdbarcombo = cmdbar.Controls.Add(msoControlComboBox)
cmdbarcombo.Tag = "TeamCombo"
cmdbarcombnAction = "ChangeColour"
Set cmdbarbtn = cmdbar.Controls.Add(msoControlButton)
cmdbarbtn.Caption = "Team Colour"
cmdbarbtn.Tag = "TeamColour"
cmdbarbtn.Style = msoButtonCaption
Set cmdbarbtn = cmdbar.Controls.Add(msoControlButton)
cmdbarbtn.Caption = "Colour Cells"
cmdbarbtn.Style = msoButtonCaption
cmdbarbtn.OnAction = "ColourCells"
For I = 1 To 24
cmdbarcombo.AddItem Worksheets("Sheet2").Range("A" & I)
Next I
cmdbarcombo.ListIndex = 1
cmdbar.Visible = True
Sub CreateCustomToolbar()
Dim cmdbar As CommandBar
Dim cmdbarcombo As CommandBarComboBox
Dim cmdbarbtn As CommandBarButton
Dim I As Integer
Set cmdbar = CommandBars.Add(Name:="Colour Teams")
Set cmdbarcombo = cmdbar.Controls.Add(msoControlComboBox)
cmdbarcombo.Tag = "TeamCombo"
cmdbarcombnAction = "ChangeColour"
Set cmdbarbtn = cmdbar.Controls.Add(msoControlButton)
cmdbarbtn.Caption = "Team Colour"
cmdbarbtn.Tag = "TeamColour"
cmdbarbtn.Style = msoButtonCaption
Set cmdbarbtn = cmdbar.Controls.Add(msoControlButton)
cmdbarbtn.Caption = "Colour Cells"
cmdbarbtn.Style = msoButtonCaption
cmdbarbtn.OnAction = "ColourCells"
For I = 1 To 24
cmdbarcombo.AddItem Worksheets("Sheet2").Range("A" & I)
Next I
cmdbarcombo.ListIndex = 1
cmdbar.Visible = True