thebretts
05-15-2006, 11:22 PM
I'm not sure if this is the correct method to ask an Excel question - but here goes.
I have a problem where I want to update many label captions (text) from user inputted data in one single macro and see the results as the data is entered. I cannot see the results on the screen until the macro finishes even though the text has changed. I have "boiled the issue down to this macro":-
Sub test()
Worksheets("sheet1").Label1.Caption = "original box 1"
Worksheets("sheet1").Label2.Caption = "original box 2"
answer = InputBox(prompt:="Enter text for 1st label", ypos:=6000, xpos:=4000)
Worksheets("sheet1").Label1.Caption = answer
answer2 = InputBox(prompt:="Enter text for 2nd label", ypos:=6000, xpos:=4000)
Worksheets("sheet1").Label2.Caption = answer2
MsgBox "The value in label 1 is " & Worksheets("sheet1").Label1.Caption
End Sub
Many thanks in advance..
I have a problem where I want to update many label captions (text) from user inputted data in one single macro and see the results as the data is entered. I cannot see the results on the screen until the macro finishes even though the text has changed. I have "boiled the issue down to this macro":-
Sub test()
Worksheets("sheet1").Label1.Caption = "original box 1"
Worksheets("sheet1").Label2.Caption = "original box 2"
answer = InputBox(prompt:="Enter text for 1st label", ypos:=6000, xpos:=4000)
Worksheets("sheet1").Label1.Caption = answer
answer2 = InputBox(prompt:="Enter text for 2nd label", ypos:=6000, xpos:=4000)
Worksheets("sheet1").Label2.Caption = answer2
MsgBox "The value in label 1 is " & Worksheets("sheet1").Label1.Caption
End Sub
Many thanks in advance..