In addition to the excellent advice given so far,
Take a look at this page as well:

http://j-walk.com/ss/excel/tips/tip44.htm
Handle Multiple UserForm Buttons With One Subroutine


It is written for commandbuttons, but can be adapted for checkboxes as well.

John Walkenbach's site.

--
Regards,
Tom Ogilvy


Ali Emre Hortacsu wrote in message
...
Hi there
I've about 30 checkboxes
I want all of them to do the same set of instructions
that I've given to Private Sub CheckBox1_Click()
something like this:

If CheckBox1.Value = True Then
CheckBox1.Caption = "Avaliable"
End If
If CheckBox1.Value = False Then
CheckBox1.Caption = "Not Avaliable"
Dim Who, Title, Person, MyDate, When
Who =.......

I've tried for loop but had some obvious problems with
the coding and the variables....

any help appriciated.

THanks