In cell A1 I have:
A,B,C,D,E
In Cell I have:
=LEN(A1)-(LEN(SUBSTITUTE(A1,",",""))-1)

which produces 5 << as I expect

I'm wanting to enter this formula via VBA (a button) as follows:

Sub FindUnique()
ActiveSheet.Range("C3").Formula =
"=LEN($A$1)-(LEN(SUBSTITUTE($A$1),"","",""""))-1)"
End Sub

but it doesn't work. What am I doing wrong here...???

TIA,