I have a formula (courtesy of J.E. McGimpsey - thank you!!) as follows:
=LEFT(A1&".0.0.",FIND("$",SUBSTITUTE(A1&".0.0.",". ","$",3))-1)

I'm trying to create a macro that will enter this in any cell of any row and
pick up the ActiveCell row reference. So A1 would be "A & ActiveCellRow".
I've tried several ways, but get lost in parenthesis, quotes and
double-quotes, and VBA Expected End of Statement errors.

Any assistance is greatly appreciated.

Ed