Himani wrote:
Find attached a sample code which will check whether checkbox is selected or
not. If selected then get caption of checkbox and store in string.

Sub Chk()
Dim strSender As String

If Sheet1.CheckBox1.Value = True Then
strSender = Sheet1.CheckBox1.Caption
End If
If Sheet1.CheckBox2.Value = True Then
strSender = strSender & ";" & Sheet1.CheckBox2.Caption
End If


Many thanks to you both, I'll give them a try


End Sub

Later, you can use string "strSender" to send mail

Outmail.to = strSender

I suggest you to used listbox or combobox if you have too many selection.
------------------------------------------------------------------------------------

I am using a macro (by Ron de Bruin ---thanks Ron) which sends a Lotus E
Mail to various people...No problem so far..
[quoted text clipped - 6 lines]

Thanks in advance

--
Message posted via http://www.officekb.com