Hi Francois,

Without seeing your existing code, it is difficult to be specific.

However, the following code illustrates a method of returning
a range from checked CheckBoxes from the Forms controls:

'=============
Public Sub Tester()
Dim CBox As CheckBox
Dim Rng As Range
Dim rCell As Range

For Each CBox In ActiveSheet.CheckBoxes
With CBox
If .Value = xlOn Then
If Rng Is Nothing Then
Set Rng = .TopLeftCell
Else
Set Rng = Union(Rng, .TopLeftCell)
End If
End If
End With
Next CBox
If Not Rng Is Nothing Then
For Each rCell In Rng.Cells
MsgBox rCell.Address(0, 0)
Next rCell
End If
End Sub
'<<=============


---
Regards,
Norman




"Francois via OfficeKB.com" <u18959@uwe wrote in message
news:70fa909835f0e@uwe...
I am using a macro (by Ron de Bruin ---thanks Ron) which sends a Lotus E
Mail to various people...No problem so far..
But I would like to be able to have a checkbox that will allow me to pick
who
to send to, instead of hardcoding the names in as I do at the moment.

My checkbox skills are nil.

could anyone point me in the right direction.

Thanks in advance

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200704/1