Insert value in Cell of Selected rows

[bigmacholmes]

Hi,

I have code written to send an email of selected text when the user presses the save button.
I have message box asking if the work done is urgent
Once the press yes, it sends an email to the desired recipients.
What I would like for it to also do is input the value urgent into column of each row that has been selected to send?

I tried this but it goes out 14 cell from each cell selected.

With Selection
.Offset(.Rows.Count * 0, (.Column - 0) * 14).Value = "URGENT"
End With

typically, columns A thru M are selected on a single or multiple rows at once.

Any suggestions?

 

[farmerscott]

What I would like for it to also do is input the value urgent into column of each row that has been selected to send?

Which col do you want "urgent" in it?

It would be helpful if you posted your full code. Use code tags please.

thx

FarmerScott

 

[bigmacholmes]

i need urgent in column O...

If Selection.Cells.Count < 12 Then
GoTo StopMacro
End If

Dim Sendrng As Range
Dim myStr As String
Dim Comm As String
On Error GoTo StopMacro
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
'
'Set Freeze = ActiveSheet.Range("B1:O1").Select

' Change the number in the If statement below to make the number of selected cell required change

myStr = MsgBox("Is your work Urgent?", vbYesNo, "Urgent??") & vbCrLf & vbCrLf
If Trim(myStr) = vbNo Then
GoTo StopMacro
End If

Set Sendrng = Selection
'Create the mail and send it
With Sendrng

ActiveWorkbook.EnvelopeVisible = True
With .Parent.MailEnvelope
' Set the optional introduction field thats adds
' some header text to the email body.

If Trim(myStr) = vbYes Then
Comm = Application.InputBox("Press Enter or Ok to Send" & vbCrLf, "Enter Comments And Send")
End If


If Trim(Comm) = False Then
GoTo StopMacro
End If


.Introduction = "The list has been updated." & vbCrLf & vbCrLf & Comm


' In the "With .Item" part you can add more options


With .Item
.To = ""
.Subject = "Urgent Work Added!"
.Send
End With
End With
End With
With Row.Selection
.Offset(.Rows.Count * 0, (.Column - 0) * 14).Value = "RUSH"
End With

GoTo StopMacro
'End If
StopMacro:
Exit Sub
End Sub