If you named your checkboxes to correspond to the row such as cbox29
then
set cb = Worksheets("All PCE").OleObjects("cbox" & cell.row).Object
if cb.Vaue then

--
Regards,
Tom Ogilvy

"Michael Wise"
wrote in message
news:Michael.Wise.1sxpjd_1122646156.0846@excelforu m-nospam.com...

I have 26 checkboxes that can vary on how many could or would be
selected. It could be just 1 or it could be all 26. The checkboxes are
not in a dialog box but hovered along side of a cell within a
worksheet(Main). I do not know how to get the checkbox involved in my
code if true or false. I need the information in the cell its aligned
to, to become part of my data carry over. I am pasting just one of many
data carry over queries in here so that you can see how it may or may
not fit in.
Thanx
Michael

With Worksheets("All PCE")
Set rng = .Range(.Cells(1, 13), .Cells(Rows.Count, 1).End(xlUp))
End With
' VISIN1 Metallic
rw = 0
Set rng1 = Worksheets("VISIN1-M").Range("A2")
For Each cell In rng
DateRange

If IsDate(cell.Value) Then
If CDate(cell.Value) = ChDate And CDate(cell.Value) <= ChDate2 Then
If cell.Offset(0, 3).Value = "VISIN1" Then
If cell.Offset(0, -8).Value < "P74" _
And cell.Offset(0, -8).Value < "P02" _
And cell.Offset(0, -8).Value < "P08" _
And cell.Offset(0, -8).Value < "P01" Then
rw = rw + 1
cell.Offset(0, -9).Resize(1, 25).Copy Destination:=rng1(rw)

End If
End If
End If
End If

Next cell


--
Michael Wise
------------------------------------------------------------------------
Michael Wise's Profile:
http://www.excelforum.com/member.php...fo&userid=6998
View this thread: http://www.excelforum.com/showthread...hreadid=391280