Du kan gøre det på denne måde.
Sub medgodtgørelse()
'
' medgodtgørelse Makro
' Makro indspillet 30-12-2010 af Jacob Olsen
'
'
Sheets("Skat").Select
ActiveCell.FormulaR1C1 = _
"=+ROUND(IF(R[-1]C<0,(R[-1]C*0.6%)+(R[-24]C*0.6%),0),0)"
Range("D56").Select
Sheets("ark1").Select
End Sub
ellers bruge direkte henledninger til de ark og celler du bruger.
Sub Test
skat.range("A1").FormulaR1C1 = "=+ROUND(IF(R[-1]C<0,(R[-1]C*0.6%)+(R[-24]C*0.6%),0),0)"
end sub
Her ikke testet det men tror det kan bruges
Godt nytår
Andreas