Hi MO,

Try:

'=============
Public Sub InsertOptionButtons()
Dim c As Range

Application.ScreenUpdating = False
For Each c In Selection
With ActiveSheet.OptionButtons. _
Add(c.Left + 5, c.Top - 2, 5, 5)
.Caption = ""
.LinkedCell = c.Address(False, False)
End With
c.Font.Color = vbWhite
Next c
Application.ScreenUpdating = True

End Sub
'<<=============

---
Regards,
Norman


"MO" wrote in message
...
I am trying to make a monthly check list where each cell represents one day
of the month and in each cell (day) I would like to put an option button.
any suggestion.
thanks

MO.