Jorge,

This is a guess but I think it well work. It sets the formula to "=$B$24"

Sub rm1411500()
Range("B3").Select
ActiveCell.FormulaR1C1 = "=r24c2"
Range("B4").Select
ActiveCell.FormulaR1C1 = "=r24c2"
Range("B5").Select
End Sub

hth,

Doug

"Jorge Adam" <Jorge wrote in message
...
I received one excel sheet with macro that was prepared in a computer in
Germany, when I try to make a seletion there is a message "erro em tempo
de
execução 1004 erro de definição de aplicativo ou de objeto"
My computer is with all the softwares in Portuguese.

Part from the macro is :

"Sub rm1411500()
Range("B3").Select
ActiveCell.FormulaR1C1 = "=Z(24)S(2)"
Range("B4").Select
ActiveCell.FormulaR1C1 = "=Z(24)S(2)"
Range("B5").Select
End Sub"

In a computer with the softwares in German language there is no erro
message.