S
Scott
Hello-
I have the code below which is evaluating cell (E6) and entering a
text string in (D15) based on the value. I want to replace the XXX
part of the string with the value of (A6) if each scenario. Any ideas?
Thanks in advance.
Scott
Sub Com1()
Dim myCell As Range
Set myCell = Selection
On Error Resume Next
If Range("E6").Value <= 8 Then
Range("d16").Select
ActiveCell.FormulaR1C1 = "Great job, you handled XXX calls yesterday!"
ElseIf Range("E6").Value <= 8.25 Then
Range("d16").Select
ActiveCell.FormulaR1C1 = "Way to go, your XXX calls really made a
difference!"
ElseIf Range("E6").Value <= 8.5 Then
Range("d16").Select
ActiveCell.FormulaR1C1 = "Wow, XXX calls in one day is fantastic!"
End If
myCell.Select
End Sub
I have the code below which is evaluating cell (E6) and entering a
text string in (D15) based on the value. I want to replace the XXX
part of the string with the value of (A6) if each scenario. Any ideas?
Thanks in advance.
Scott
Sub Com1()
Dim myCell As Range
Set myCell = Selection
On Error Resume Next
If Range("E6").Value <= 8 Then
Range("d16").Select
ActiveCell.FormulaR1C1 = "Great job, you handled XXX calls yesterday!"
ElseIf Range("E6").Value <= 8.25 Then
Range("d16").Select
ActiveCell.FormulaR1C1 = "Way to go, your XXX calls really made a
difference!"
ElseIf Range("E6").Value <= 8.5 Then
Range("d16").Select
ActiveCell.FormulaR1C1 = "Wow, XXX calls in one day is fantastic!"
End If
myCell.Select
End Sub