VBA Code Problem

[davidgottlieb]

I have this code in my module that when the Reset Link is clicked it adds a formula to a cell:

Private Sub lblReset_Click()
Sheets("Employee Feed").Visible = True
Sheets("Employee Feed").Activate
Range("A3").Select
ActiveCell.FormulaR1C1 = "=REPLACE(A7,6,1," - ")"
End Sub

It comes up with an error:

"Type Mismatch"

What could the problem be??

[jp_schwartz]

Look at the following expresion:

"=REPLACE(A7,6,1," - ")"

What you´re doing is substracting two strings.

[Reddawn]

David,

REPLACE worksheet function requires arguments with string data type, thus 6 should be "6" and 1 should be "1". Hence, a1 should be reformatted as text or u should convert A1 contents to string by using TEXT(A1,"format-string") ws function.

Best wishes with your work..

[Reddawn]

You should use double quotes or chr(34) within formualae string..

ActiveCell.FormulaR1C1 = "=REPLACE(A7,6,1,"" - "")"

[davidgottlieb]

I'm not sure I understand. I am somewhat new to this. The thing is, I was using this before and it was working fine. I don't understand why it isn't working now

[davidgottlieb]

OHHH. Ok. I got it to work. Thank you so much for your help.

Thank YOU