Loop in decimels instead of regular numbers.

[countryfan_nt]

Hello friends, Hope all is well!

Please kindly help me with the code below.
1. Can I make it faster?
2. I want the loop to be run on decimels (e.g. 0.1, 0.2, …1.1,1.2 etc.)

Highly appreciate it in advance!

Option Explicit

Sub animatedLineChart()

Application.ScreenUpdating = False

Sheets("bmi").Range("A33").Value = 0

 ActiveSheet.ChartObjects("Chart 2").Select
 'ActiveChart.Axes(xlValue).Select
 ActiveChart.Axes(xlValue).MinimumScale = 0

Range("A1").Select

Application.ScreenUpdating = False

    Dim i As Integer
    Dim XValue As Integer
    For i = 0.01 To Sheets("bmi").Range("B33").Value
        Worksheets("bmi").Range("xValue") = Format(i, "0.00")
        DoEvents
    
 Application.ScreenUpdating = True
    
    Next i

Range("A1").Select
End Sub

 

[Special-K99]

For i = 0.01 To Sheets("bmi").Range("B33").Value step 0.1

 

[countryfan_nt]

Thank you very much! I tried the below code, but I it is not fast enough; can it be? please help.

Sub DoWhileDemo()

Sheets("bmi").Range("b1").ClearContents

Range("A1").Select

Do Until Sheets("bmi").Range("c1").Value = True
Sheets("BMI").Range("B1").Value = Sheets("BMI").Range("B1").Value + 1.5
  DoEvents 'Wait for things to update
  Application.Wait (Now() + CDate("00:00:01")) / 500
  Loop
  
Application.ScreenUpdating = False
    Range("E1").Select
    Selection.Copy
    Range("B1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Application.ScreenUpdating = True
End Sub