I'm very new to macro part of Excel.
I have created a number of boxes (cells with borders) in
basic forms that a made.
I was wondering if there is a way to write a macro too
make the boxes work like a check box, but have an 'X' show
up in it rather than a check, when it is clicked?

Try the following:
1) Place a rectangle from the Drawing toolbar over the
cell. Ensure that the top left corner of the rectangle
does not go beyond the cell boundary.
2) Right click the rectangle and select Format Autoshape.
3) Select the Colors and Lines tab.
4) Select No Fill and No Line from the Colors and Lines
menu. It should appear invisible.
5) Right click the rectangle again and select Assign Macro.
6) Assign the following macro to the rectangle.

Sub CheckBoxCells()
Dim C As Range
Set C = ActiveSheet.Shapes(Application.Caller).TopLeftCell
If C.Value = "X" Then C.Value = "" Else C.Value = "X"
End Sub

Note that if you change your mind about the "X" you can
make it a check mark by formating the cell font
as "Marlett" and substituting the lower case "a" for
the "X" in the code. Alternatively, the lower case "h"
will toggle as a large square (bullet).

Regards,
Greg

-----Original Message-----
I'm very new to macro part of Excel.
I have created a number of boxes (cells with borders) in
basic forms that a made.
I was wondering if there is a way to write a macro too
make the boxes work like a check box, but have an 'X'
show
up in it rather than a check, when it is clicked?
.

It took me a couple minutes to figure it out but I got it
to work(very new at this).
I wasn't naming the macro "CheckBoxCells". I think that me
work for me.

Thnks for your help Greg


-----Original Message-----
Try the following:
1) Place a rectangle from the Drawing toolbar over the
cell. Ensure that the top left corner of the rectangle
does not go beyond the cell boundary.
2) Right click the rectangle and select Format
Autoshape.
3) Select the Colors and Lines tab.
4) Select No Fill and No Line from the Colors and Lines
menu. It should appear invisible.
5) Right click the rectangle again and select Assign
Macro.
6) Assign the following macro to the rectangle.

Sub CheckBoxCells()
Dim C As Range
Set C = ActiveSheet.Shapes(Application.Caller).TopLeftCell
If C.Value = "X" Then C.Value = "" Else C.Value = "X"
End Sub

Note that if you change your mind about the "X" you can
make it a check mark by formating the cell font
as "Marlett" and substituting the lower case "a" for
the "X" in the code. Alternatively, the lower case "h"
will toggle as a large square (bullet).

Regards,
Greg

-----Original Message-----
I'm very new to macro part of Excel.
I have created a number of boxes (cells with borders) in
basic forms that a made.
I was wondering if there is a way to write a macro too
make the boxes work like a check box, but have an 'X'
show
up in it rather than a check, when it is clicked?
.

.