Rounding Macro Code

[kluitna]

Here is some code I have tried to right for my rounding portion of a macro. The problem is getting the active cell selected. This is there a way to tell Excel that I am looking for the current worksheet. The problem I am having is I want this macro to work on every work sheet and there can be any where from 5 to 256 worksheets in a workbook that this macro will work with.

Anyone out there have any suggestions?

Any help is greatly appreciated

For i = 0 To 35
Dim Rnd As String
If Rnd = blank Then End
Rnd = Worksheets.Cells(16 + i, 9)
Range.Rnd.Select
ActiveCell.FormulaR1C1 = "=ROUND(RC[-2]*RC[-3],4)"
Next i
End Sub

 

[larai]

Generally if I'm running code for the worksheet I'm currently in I use "ActiveSheet"

This would mean that you would select the sheet you want before running the code.

If you want to cycle through and run the code on each worksheet in your workbook, you would want to set up a loop through the worksheets collection.

 

[brettvba]

if your just wanting to run the code when your on the sheet

Sub testi()
Set iSht = ActiveSheet
For i = 0 To 35
If iSht.Cells(16 + i, 9).Value = Empty Then GoTo iend
iSht.Cells(16 + i, 9).Value = "=ROUND(RC[-2]*RC[-3],4)"
Next i
iend:
End Sub

else if you want to run the macro on multiple sheets at once you may want an array of the sheets.

Brett