Caps in brackets

[Rumburak]

Hi,,

In column A I have very many phrases.
Each phrase may or may not have one or more words in brackets.
How can I make all the words in brackets written in capital letters?

Thank you.

 

[Rick Rothstein]

In column A I have very many phrases.
Each phrase may or may not have one or more words in brackets.
How can I make all the words in brackets written in capital letters?

Assuming you meant [ and ] as your brackets, give this macro a try...

[table="width: 500"]
[tr]
	[td]Sub CapitalizeTextInBrackets()
  Dim R As Long, X As Long, Txt() As String, Data As Variant
  Data = Range("A1", Cells(Rows.Count, "A").End(xlUp))
  For R = 1 To UBound(Data)
    Txt = Split(Data(R, 1), "[")
    For X = 1 To UBound(Txt)
      Mid(Txt(X), 1, InStr(Txt(X), "]")) = UCase(Mid(Txt(X), 1, InStr(Txt(X), "]")))
    Next
    Data(R, 1) = Join(Txt, "[")
  Next
  Range("A1").Resize(UBound(Data)) = Data
End Sub[/td]
[/tr]
[/table]

 

[Rumburak]

Rick, thank you so much.
You're he best.