I have trouble dealing with objects on a sheet - so instead of check boxes I
use an event macro.

using column A for my check box - one of my favorites is:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
If Len(Target) = 0 Then
Target = "X"
Else
Target.ClearContents
End If
End Sub


--
steveB

Remove "AYN" from email to respond
"pkohler" wrote in
message ...

So I am trying to write some formating macro's.

One of them is to delete entire rows, but the rows each contain a
Checkbox. I have a snippit of code to remove checkboxes:

Dim chbx As String
Dim strt, fin As Integer
strt = 734
fin = 1790

For i = strt To fin
chbx = "Check Box " & i
On Error Resume Next
ActiveSheet.Shapes(chbx).Select
Selection.Cut
Next i

The problem that I have is, that I do not know how to obtain the start
and end number for the checkboxes in the range I want to delete. Is
there a method to delete an entire row and the objects within it?

Thanks,

Phil


--
pkohler
------------------------------------------------------------------------
pkohler's Profile:
http://www.excelforum.com/member.php...fo&userid=8919
View this thread: http://www.excelforum.com/showthread...hreadid=385700