If you are incrementing variable between a minimum and a maximum value did you know that you can do this as a loop in VBA e.g

Sub test()

cnt = 0
For Weight = 45 To 100 Step 0.01
cnt = cnt + 1
MsgBox (Weight)
If cnt = 6 Then Exit For
Next Weight


End Sub