I am using Excel 2010 and need a macro that changes a specific word in a string to Uppercase. e.g. in "All current sewer pipe is owned by hrsd and not the city." `hrsd` needs to be uppercase `HRSD`.

The following macro works great for single words, but not for a string:

```
If Target.Cells.Count > 1 Or Target.HasFormula Then Exit Sub

On Error Resume Next
If Not Intersect(Target, Range("H2:H3000")) Is Nothing Then
    Application.EnableEvents = False
    Target = UCase(Target)
    Application.EnableEvents = True
End If
On Error GoTo 0

```

Any suggestions?