Ak vyzerá makro napríklad takto:
Sub Leden()
Sheets("Osnova").Select
Range("B5").Select
ActiveCell.FormulaR1C1 = "1"
Calculate
End Sub
Tak po upravení by mohlo vyzerať takto:
Sub Leden()
Range("Osnova!B5").Value = 1
Calculate
End Sub