Email multiple ranges to multiple email addresses

Hi

I have installed Ron De Bruin's excel ad in RDBMail.xlam which can be found at http://www.rondebruin.nl/win/addins/rdbmail.htm. There is a menu option that creates a "send PDF template". Column B in this template is for adding worksheets or workbooks. I would like to add a range name in these cells instead if I can and everything would run perfectly but I can't work out how to do this. I realise there's going to be some vba changes to do this. I would appreciate it if somebody could help me. Thanks.

I think this is the code where it's looking for a sheet name in column B. Can we change this to looking for a range name.

'Check if there are Sheet names in column B

'If B is empty S = 0 so you not want to send a sheet or sheets as pdf
If Trim(Me.Cells(myCell.Row, "B").Value) = "" Then S = 0

'If there are sheet names in the B column S is the number of sheets it add to the Array
If LCase(Trim(Me.Cells(myCell.Row, "B").Value)) <> "workbook" Then
StringSheetNames = Me.Cells(myCell.Row, "B").Value
SheetNamesArray = Split(StringSheetNames, Chr(10), -1)

For I = LBound(SheetNamesArray) To UBound(SheetNamesArray)
On Error Resume Next
If SheetNamesArray(I) <> "" Then
If SheetExists(CStr(SheetNamesArray(I))) = False Then
Me.Cells(myCell.Row, "B").Interior.ColorIndex = 3
WrongData = True
Else
S = S + 1
ReDim Preserve ShArr(1 To S)
ShArr(S) = SheetNamesArray(I)
End If
End If
On Error GoTo 0
Next I

Sorry about that, I've just learnt something. I have now added all the code and I think the portion that needs to be changed is under 'Check if there sheet names in column B'

Please Login or Register  to view this content.