Sub Uppercase_Stri()
'In slection, find all instances of the inputboxed string
'and capitalize all their letters.

Dim myRng As range
Dim stri As String

Set myRng = selection.range
    stri = InputBox("Enter the string to find")
    With myRng.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .text = stri
        .Replacement.Font.AllCaps = True
        .Forward = True
        .Format = True
        .MatchCase = True
        .MatchWholeWord = True
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .MatchWildcards = False
        .Wrap = wdFindStop
        .Execute Replace:=wdReplaceAll
    End With
End Sub