I'm using this code to update a userform (this is code that is part of a progress bar):
Private Sub UserForm_Activate()
Dim lTop As Long, lLeft As Long
Dim lRow As Long, lCol As Long
With ActiveWindow.VisibleRange
lRow = .Rows.Count / 2
lCol = .Columns.Count / 2
End With...