The code I have right now is:

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
How would I get an attachment via the VBA code?

I tried the code below but receive an error.

ActiveSheet.Attachments.Add "H:\Approval Form.doc", olByValue
I'm assuming, with main code, listed at the top of the post, I won't be able to add an attachment but would like confirmation.