input box to allow range OR strings

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Greg - 21 Nov 2007 17:42 GMT

Hi,

I'd like the user to either select the range of cell with email addresses or
type it OR be able to type them in directly. I can only think of one either
declare a range or string. for example, when declaring a range my code looks
like following:

Set rngTo = Application.InputBox("Select range with addressees emails
for the 'TO:' field" & _
vbNewLine & "or enter emails here separated by semicolon", "Select",
Type:=8)

This won't allow a string to be typed in...
Can anything suggest the workaround?
Thank you,

Signature

______
Regards,
Greg

Reply to this Message

FSt1 - 21 Nov 2007 18:44 GMT

hi
tricky problem. you could use a msgbox to get a yes/no responce. something
like this...
Dim rngto As Range
Dim stgto As String
If MsgBox("Do you wish to enter the mail addresses?" & vbNewLine & _
"Click yes?" & vbNewLine & _
"Or to select email addresses by range" & vbNewLine & _
"Click No") = vbNo Then
Set rngto = Application.InputBox("Select range with addressees emails
for the 'TO:' field")
Else
Set stgto = Application.InputBox("Enter emails here separated by
semicolon.")
End If

lot of extra code but it would solve the delima.

Regards
FSt1

> Hi,
>
[quoted text clipped - 11 lines]
> Can anything suggest the workaround?
> Thank you,

Reply to this Message