A common question on this board with a twist

[jamesmarcos75]

I have set up button in excel that automatically attaches the file to an e-mail and fills out the TO: and SUBJECT: fields. The code is as follows:


Private Sub ClickHereCore_Click()
Application.Dialogs(xlDialogSendMail).Show _
arg1:=Array("name@yahoo.com", "name2@yahoo.com"), _
arg2:="Subject Text"
End Sub

Does anyone no how to amend this code to have the code pull certain text in Cell A1 of the Sheet 1 into the subject field?

Thanks in advance!

Jim

 

[HalfAce]

Hello jamesmarcos75, welcome to the board.
Assuming you mean to use the value of A1 from the active sheet you can simply replace
the line:
arg2:="Subject Text"
with:
arg2:=[A1].Value

Otherwise you'll want to specify the sheet by name...
arg2:=Sheets("Sheet1").[A1].Value

 

[jamesmarcos75]

Thank you!

I'm obviously a novice, and I really appreciate the response! This board rules!

 

[HalfAce]

I'm obviously a novice

Weren't we all at one point?