How do I add the tick box function to the tool bar?

[Guest]

I want to have a button on the tool bar for a tick. I need to be able to
click a cell and then click a button in the toolbar which adds a tick to that
cell

 

[Bob Phillips]

Sub AddMenu()
Dim oCB As CommandBar
Dim oCtl As CommandBarControl

On Error Resume Next
Application.CommandBars("myToolbar").Delete
On Error GoTo 0

Set oCB = Application.CommandBars.Add(Name:="myToolbar",
temporary:=True)
With oCB
Set oCtl = .Controls.Add(Type:=msoControlButton)
With oCtl
.BeginGroup = True
.Caption = "AddTick"
.OnAction = "AddTick"
.FaceId = 161
End With
.Visible = True
.Position = msoBarTop
End With

End Sub


Sub AddTick()
With ActiveCell
.Value = "a"
.Font.Name = "Marlett"
End With
End Sub

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)