Private Sub CommandButton1_Click()
Dim lou As Single
Dim deltalou As Single
Dim imax As Integer


Range("Louie").Select
lou = ActiveCell.Value
If (lou > 0) Then ActiveCell.Value = 0

Range("delta").Select
deltalou = ActiveCell.Value

Range("steps").Select
imax = ActiveCell.Value

For i = 1 To imax
   Range("Louie").Select
   lou = ActiveCell.Value
   lou = lou + deltalou
   ActiveCell.Value = lou
Next i