Private Sub CommandButton15_Click()
Sheets("Column Sort").Range("A2", "N3340") = ""
For a = 1 To 1000
b = Int(a / 10)
Sheets("Column Sort").Range("O1") = b
TextBox2 = Sheets("Column Sort").Range("O1")
Sheets("Column Sort").Range("A3340:N3340").Copy_
Destination:=Sheets("Column Sort").Range("A" & a)
Next a
End Sub

What I want is for TextBox2 to show the variable 'a' as a percentage
done.
Although the macro works, it only updates TextBox2 when it has
finished.
ie TextBox2 shows 100.
How can I get TextBox2 to update as it runs through the macro, which
should show 1 thru to 100.

Am using Excel97 if it makes a difference.


--
grahammal
------------------------------------------------------------------------
grahammal's Profile: http://www.excelforum.com/member.php...o&userid=20336
View this thread: http://www.excelforum.com/showthread...hreadid=541471