Swap around Equal Sign

[kpark91]

Hello, I am currently using VBA code that requires a variable be set to a userform object's value.

    ws.Range("A1").Value = Me.a.Text
    ws.Range("B1").Value = Me.b.Text
    ws.Range("C1").Value = Me.c.Text
    ws.Range("D1").Value = Me.d.Text
    .
    .

They have been copy+pasted onto a excel spreadsheet into columnA and there are quite alot of these tedious lines.

Now, I need a formula (preferably) to swap these around the equal sign.
and show it in columnB.

So, it would look like

    Me.a.Text = ws.Range("A1").Value   
    Me.b.Text = ws.Range("B1").Value
    Me.c.Text = ws.Range("C1").Value 
    .
    .

Thank you in advance,
Kpark.

PS: There will only be one equal sign so there will be no "=" in any of the codelines I want to swap.
For example,

None of these
Worksheets("=Hello").Range("A1").Value = "Blarg="

 

[kpark91]

Now, I have a really good idea on how it works.
However, I don't think TaggedValues is provided in excel VBA.
Is there a reference I need to add for it?

If not, I can attempt to code it myself as a side-project :D (for now).

Thank you again for the handy trick!

 

[Greg Truby]

The TaggedValue and TaggedValues class modules are from that book. In the past I have searched for their code online and have not found it (the code is in the CD that comes with the book). Since I cannot find an open source and since I didn't personally write the code, I do not feel comfortable publishing code that other developers wrote. But if you have any kind of experience with class modules, it's not terribly hard to work out.