Reference a cell in email title

[O177812]

I am usingthe below:

Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
Set rng = Selection.SpecialCells(xlCellTypeVisible)
Set rng = Sheets("BY SKU").Range("B2:F11").SpecialCells(xlCellTypeVisible)
On Error Resume Next
With OutMail
.To = "kremaley@inw-group.com; kristin@proformlabs.com; cory@proformlabs.com; orders@proformlabs.com"
.Cc = "sboatright@proformlabs.com; shippingshared@proformlabs.com; garvizu@inw-group.com"
.Subject = "Walmart Orders: Orders Created " & Format(Now, "mm-dd-yyyy") & " for ship " & Format(Now + 7, "mm-dd-yyyy")
.HTMLBody = "Hi Team, " & Chr(10) & "<br>" & "<br>" & _
Chr(10) & "Here are the orders that came in today that are scheduled to ship on " & Format(Now + 7, "mm-dd-yyyy") & Chr(10) & Chr(10) & RangetoHTML(rng) & "<br>" & _
Chr(10) & "Have a great week!"
.Attachments.Add ActiveWorkbook.FullName
.Send
End With
On Error GoTo 0
Set OutMail = Nothing


I want to replace the highlighted to use a selected cell (Cell C7 on a worksheet titled "BY DC")

Please help

 

[Micron]

Perhaps ... & Sheets("BY DC").Range("C7") & Chr(10) & Chr(10)
However, not sure if you need to worry about why the cell is selected when you can just refer to it by its address. Or did you mean to use a value from the active/selected cell regardless of which that is?