Формула текщей ячейке

[antihacker]

Проблема в Excel-e

Dim stroka, stolbec
Dim StrFor As Variant
stroka = InputBox("Ââåäèòå êîëè÷åñòâî ñòðîê")

stolbec = InputBox("Ââåäèòå êîëè÷åñòâî ñòîëáöîâ")
For i = 1 To stroka

For j = 2 To stolbec

Cells(i, j).Select
Cells(i, j).Activate
StrFor = Cells(i, j).Value
ActiveCell.FormulaR1C1 = "=ROUND(" & StrFor & ",0)"
ActiveCell.Font.Bold = True

Next

Next
End
Работает не правильно

Дело в том что все данные находяшиеся в ячейках попадают туда с помощью разных формул. Теперь перед тем как округлить не удается получить данные из ячейки.

[RayShade]

А как насчет, создания темы в нормальном разделе?