Norman:

I have discovered a problem. For some reason, whne I use the function
inside my worksheet, the checkboxes keep dropping lower in the cells as I
add them into the sheet.

when I add it to cells W12:W24 the alignment is good. By the time I am
adding them to W93:W105 they are dropping down to the next row. This was
not happening when I was experimenting on it in a blank workbook, or on a
blank worksheet within this workbook.

Obviously there is some sort of formatting or setting on this worksheet that
is causing this. Any idea what that could be?

Adam


"Norman Jones" wrote in message
...
Hi Adam,

Firstly, the macro is designed to add checkboxes to each cell in the
designated range

If you want to apply the macro to, say, the Pilot 1 sheet, you could
change:

Set SH = ActiveSheet

to:

Set SH = Sheets("Pilot1")

However, if your intention is to add checkboxes to various sheets, you
could leave the above line unchanged, in which case the macro will operate
on whichever sheet you select.

Alternatively again, change:

Set rng = SH.Range("A1:A100")

to:

Set rng = Selection

as suggested in my reponse to your preceding post.


---
Regards,
Norman


"Adam Kroger @hotmail.com" <adam_kroger<nospam wrote in message
...
I tried to run it as a macro but it hung at teh sheet name. My sheets are
named 'Pilot 1' , 'Pilot 2' , 'Pilot 3', ... , 'Pilot 12' The checkboxes
are in the range W1:W321