If Selection.Fields.Count >= 1 Then Set myRange = Selection.Fields(1).Result myRange.Bold = True End If