Userform frame progress bar for userform completion

Hi all,

Such a simple(!) approach, but can't get my head round it.

I have a multipage userform with bunch of objects (textboxes, comboboxes etc). User will have to fill in all mandatory fields. I have also got a Frame progress bar on that userform and would like it to indicate userform completion progress as user fills in the values.

I found this code that activates and runs progress bar, but I want it to only look at one cell, say A1, which will hold a number of already filled in fields. How do I adapt the below code to look at A1?

Sub code()

Dim i As Integer, j As Integer, pctCompl As Single

'Sheet1.Cells.Clear

For i = 1 To 100
    For j = 1 To 100
        Cells(i, 1).Value = j
    Next j
    pctCompl = i
    progress pctCompl
Next i

End Sub
Sub progress(pctCompl As Single)

TenReg.Text.Caption = pctCompl & "% Completed"
TenReg.Bar.Width = pctCompl * 2

DoEvents

End Sub

Thanks all!