Rounding Question

[kluitna]

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

 

[Jay Petrulis]

Hi,

Replace
Worksheets(2)

with
ActiveSheet

to have this work with the active sheet, whatever that is.

When you use Worksheets(2), you are explicitly referencing the second sheet in the workbook, so the code will always operate on that particular sheet.

 

[kluitna]

that did it !!!

Thanks allot I knew it was something simple...