如何从其中写入了单词Text的单元格中返回Excel VBA中“ Text”的等价物？

Question

I'm trying to use VBA to send a PDF copy of a worksheet. Everything works when my code looks like this:

With OutlookMail
.To = "email_address@email.com"
.CC = ""
.BCC = ""
.Subject = "No Subject"
.Body = ""
.Attachments.Add FileName
.Send
End With

But I want to replace the email address in .To to an email address that has been written into the active worksheet within a cell that is formatted as text. What I've tried is this:

With OutlookMail
    .To = Range("K4").Text
    .CC = ""
    .BCC = ""
    .Subject = "No Subject"
    .Body = ""
    .Attachments.Add FileName
    .Send
    End With

Which I think should work but for some reason it doesn't. The cell is merged from K4 to N4 but when in a worksheet if I try =K4 it returns what is in the entire cell so I think this should be okay. I'm sure this is a very easy question but I've tried looking things up and tried using CStr(Range("K4").Text) instead but no luck. Any suggestions?

Answer 1

使用Sheets("SheetName").Range("K4").Value