Formula to extract upper case words in a text string

[spbcson]

IS THERE A FORMULA TO EXTRACT A UPPER CASE FROM A TEXT STRING IN A CELL? Example in cell A1 i have this text string:

//-- y MICROSOFT EXCEL computer software June 23489​

How can I get only the words "MICROSOFT EXCEL"

 

[pgc01]

Hi Peter

Is the last bit "(?= |$)" not redundant?

With "[^ ]*" you capture any number of non-space characters.
This means that what follows must be either a space or the end of line.
The "(?= |$)" seems not to add any information...

... or I'm missing something which is quite possibly the case, haven't been here for a while

 

[Peter_SSs]

haven't been here for a while

Hello Pedro. Good to see you - you have been missed!!
Especially whenever I attempt a RegExp question as I always remember that it was you that got me interested in the topic and explained a lot to me in my early days in the subject.

Is the last bit "(?= |$)" not redundant?

I think you might be right .... which makes @JEC almost right. ?

I think the look-ahead was left over from when I was trying to get rid of all the unwanted text with only a regexp replace. That is, without the Application.Trim, but I got stuck.
Not that it makes much difference, but looking again now, I think with the look-ahead I could at least get back to a vba trim?

Function UCtext(s As String) As String
  With CreateObject("VBScript.RegExp")
    .Global = True
'    .Pattern = "[^ ]*[^A-Z\.& \-][^ ]*(?= |$)"
    .Pattern = "(^| )[^ ]*[^A-Z\.& \-][^ ]*(?= |$)"
'    UCtext = Application.Trim(.Replace(s, ""))
    UCtext = LTrim(.Replace(s, ""))
  End With