Replace the double quotes to denote blank within the formula ("") with """"

as below

Me.Range("H6").Formula =
"=IF(TODAY()=$B6,SUMPRODUCT(--(Actualized!$B$16:$B$1056=$B$3),--(Actualized!$" & MScell & "$16:$" & MScell & "$1056<=$B6)),"""")"

--
If this post helps click Yes
---------------
Jacob Skaria


"Ayo" wrote:

I am getting the above error message on the code line below and I can't
figure it out. MScell is a string variable that evaluates to "J".
I would appreciate any insight into this.
Thanks.
Me.Range("H6").Formula =
"=IF(TODAY()=$B6,SUMPRODUCT(--(Actualized!$B$16:$B$1056=$B$3),--(Actualized!$" & MScell & "$16:$" & MScell & "$1056<=$B6)),"")"