try this
Sub addsuffix()
For Each c In Selection
'to leave formula and add suffix
If Left(c.Formula, 1) = "=" Then c.Formula = c.Formula & "&" & """ hrs"""
'or this line to leave the value only
'If Left(c.Formula, 1) = "=" Then c.Value = c & " hrs"
Next
End Sub

--
Don Guillett
SalesAid Software

"Dr. Darrell" wrote in message
...
I would like to add a suffix <<< "hrs" to some fields. The fields are
the
result of Formulas <<< "=SUM(C11:C42)" I would like the field to be
displayed as the resultant number (49) & the desired text (hrs) = 49 hrs.

Is there a means to do this?