Hi,
I currently have this:
Private Sub CalcPUnit_Click()Dim rCell As Range
Dim rRng As Range
Worksheets("Inventory").Select
Set rRng = Range("E3:E50")
For Each rCell In rRng
rCell.Value = rCell.Offset(, 2) / rCell.Offset(, 1)
Next rCell
End Sub
Basically to say each cell in a range...