Hi,

Looking to populate the subject line to include the cell value. However, the cell value is dependent on where the comment is coming from. For example, if I'm writing a comment in Cell S4 and row 4 corresponds to Google (currently cell A4), I'd like the subject line to read "Comment for Google"

I'd like to take this one step further so if the comment is made in Cell S5 and row 5 corresponds to Amazon (in cell A5), the subject line will automatically populate to "Comment for Amazon"

Currently have all the company names in column A and all the comments for a specific company will be made in the same row. Thanks in advance. 

 
'From Mr. Bruin
Option Explicit

Sub Mail_Selection_Outlook_Body()
    Dim rng As Range
    Dim OutApp As Object
    Dim OutMail As Object
 
    With Application
        .EnableEvents = False
        .ScreenUpdating = False
    End With
 
    Set rng = Nothing
    On Error Resume Next
    Set rng = Selection.SpecialCells(xlCellTypeVisible)
    On Error GoTo 0
 
    If rng Is Nothing Then
        MsgBox "The selection is not a range or the sheet is protected" & _
               vbNewLine & "please correct and try again.", vbOKOnly
        Exit Sub
    End If
 
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
 
    On Error Resume Next
    With OutMail
        .To = "xxxx@xx.com; xxxxx@xx.com"
        .CC = "xxxx@xx.com"
        .BCC = ""
        .Subject = "Comment" & "for " & Range("A4")
        .HTMLBody = RangetoHTML(rng)
        .Display   'or use .Send
    End With
    On Error GoTo 0
 
    With Application
        .EnableEvents = True
        .ScreenUpdating = True
    End With
 
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub