Here is my third try following is working code and works just fine. The problem is I want it to work on any worksheet.
Sub Macro2()
'
For i = 0 To 35
Dim Rnd As String
Rnd = Worksheets(2).Cells(16 + i, 9)
If Rnd = blank Then End
Worksheets(2).Cells(16 + i, 9).Select
ActiveCell.FormulaR1C1 = "=ROUND(RC[-2]*RC[-3],5)"
Next i
End Sub
Is there code for the current worksheet?
I am so close but yet so far.
Thanks in advance
Paul
Sub Macro2()
'
For i = 0 To 35
Dim Rnd As String
Rnd = Worksheets(2).Cells(16 + i, 9)
If Rnd = blank Then End
Worksheets(2).Cells(16 + i, 9).Select
ActiveCell.FormulaR1C1 = "=ROUND(RC[-2]*RC[-3],5)"
Next i
End Sub
Is there code for the current worksheet?
I am so close but yet so far.
Thanks in advance
Paul