How can I get a textbox (or lable ) on a user form to update each time a macro loops

[tonywatsonhelp]

Hi Everyone,

so i have this code

Sub Send_Everyone()
    Dim myRange As Range
    Dim cell As Range

UserForm2.Show (vbModeless)
UserForm2.Repaint
Application.EnableEvents = False
Application.ScreenUpdating = False

Set myRange = EmailA.Range("F8:F" & Lr)

    For Each cell In myRange
    
If cell.Offset(0, -1).Value = "" Then
Raw.[Q1].Value = cell.Value
Raw.[Q2].Value = cell.Offset(0, 1).Value
End If
    Next cell

Application.EnableEvents = True
Application.ScreenUpdating = True
Unload UserForm2

End Sub

all works fine but id like to display the data in cell Q3 in Textbox1

currently this hapens at the start using code

Private Sub UserForm_Initialize()
TextBox1.Value = EmailA.Range("Q3").Value
End Sub

but the figues in Q3 increase each time the macro loops but the text box does not update,
any ideas how i can get it to update each time the macro loops?

thanks

Tony

 

[Anthony47]

Try using DoEvents:

UserFormX.TextBox1.Value = EmailA.Range("Q3").Value
DoEvents