VBA - find (with wildcard) and replace

[energy_excel]

Hi,

I'm got a column with 3k rows of data. Data in each cell is a string and in the following format:

name[40%], name2[20%], name3[5%], name4[60%]

but at times, those inputting the information forget to put a comma between names, so I get something like this:

name[40%], name2[20%]name3[5%], name4[60%]

I've gotten this far in my macro but can't figure out how to replace.....

If Range(a1).Value Like "*%][A-Z]*" Then ?????

how do i place the comma in between the closing bracket and the wildcard letter??

Thank you in advance!

 

[Micron]

Interesting to me that your expression does not find that the string with missing comma in A4 is found. The code skips over my msgbox test:

If Range("A4") Like "*%][A-Z]*" Then
   MsgBox Range("A4")
End If

I did come up with a longer solution by splitting the delimited (,) portions into an array but it's kind of convoluted. If you don't get a RegEx solution I can work on it a bit to make it more decipherable.
From this
name[40%], name2[20%]name3[5%], name4[60%]

I got this
name[40%], name2[20%], name3[5%], name4[60%]