For Each rCell In rCheck
If rCell.Value Like sPATTERN Then
ActiveSheet.Hyperlinks.Add _
Anchor:=rCell, _
Address:="mailto:" & rCell.Value & "?Subject=" & _
rCell.Offset(0, -8).Value & " " & rCell.Offset(0, -7).Value & _
" " & rCell.Offset(0, -9).Value & " Catalog Page Proofs" & "&Body=" & _
Sheets("email body").Cells.Range("b5").Value & _
" " & rCell.Offset(0, -2).Value & "%0d%0a%0d%0a" & _
Sheets("email body").Cells.Range("b8").Value & rCell.Offset(0, -5).Value & _
"%3a%0d%0a" & Sheets("email body").Cells.Range("b10").Value & _
"%3a%0d%0a" & Sheets("email body").Cells.Range("b13").Value, TextToDisplay:=rCell.Value
End If
Next rCell
Bookmarks