VBA & ProgressBar

[Ephesians]

There are a few ways you can do this. With a popup form you can have a coloured box that grows during the calculation process... with your code I would do something like this..

Do While MaxDD < Val(txtMaxDrawDown.Text)
    Range("BC30").Select
    ActiveCell.FormulaR1C1 = Risk
    Worksheets("LBOP-New Capital p.a").Calculate
    Range("BC25").Select
    MaxDD = Range("BC25")
        Risk = Risk - 0.00002
    Progress = Val(txtMaxDrawDown.Text) - (MaxDD/Val(txtMaxDrawDown.Text))
    boxProgress.Width = boxOriginal.Width - (boxOriginal.Width * Progress)
    doevents
Loop