No, it is not.
Uppercase can be searched for in two different ways according to how it occurs.
1. If the Uppercase is a font formatting attribute applied to regular (upper and lowercase) text then you could change .Bold = True to .AllCaps = True
2. If the text was actually typed only with capital letters then you would need a wildcard search for those specific characters along the following lines
Code:
Sub Seeker()
Options.DefaultHighlightColorIndex = wdYellow
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
With .Font
.Name = "Times New Roman"
.Size = 12
End With
.Replacement.Highlight = True
.Text = "[ABCDEFGHIJKLMNOPQRSTUVWXYZ]"
.Replacement.Text = "^&"
.Forward = True
.Wrap = wdFindStop
.MatchWildcards = True
.Format = True
.Execute Replace:=wdReplaceAll
End With
End Sub