Event Procedure to add text dependent on value pasted in cell

[bh24524]

Hi, I am looking for an event procedure to add additional text to cells that have numbers. These numbers are pasted from another source into column B of the worksheet. There are 2 groups that this is for and each has headers in column B. They appear like this:

So basically what I am looking for is when any value is pasted into column B(amount of names changes on a regular basis just as Info) is 30 or higher, for it to add the text "Sample 1" and if the value is 9 or less to add the text "Sample 2". (There will never be any values between 10 and 29, so no need for any provisions there.) So if I were just now pasting the above screen shot data as an example, I would expect it to look like this:

Thank you in advance for the time on this!

 

[Scott Huish]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, d As Range
Set d = Intersect(Range("B:B"), Target)
If d Is Nothing Then Exit Sub
Application.EnableEvents = False
    For Each c In d
        If IsNumeric(c) And c <> "" Then
            Select Case c
                Case Is < 9
                    c = c & " Sample 1"
                Case Is > 29
                    c = c & " Sample 2"
            End Select
        End If
    Next
Application.EnableEvents = True
End Sub

 

[bh24524]

Ah the code was a little more involved than I would have thought. Thank you Scott for the quick response, this is exactly what I was looking for.