Gil,

You could try

Range("A1").Value = "Now on iteration " & Format(c,"#,##0")

or you could put it in the statusbar

Application.StatusBar = "Now on iteration " & Format(c, "#,##0")

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Gil" wrote in message
...
Is there any way to display in the spreadsheet how many times a *Do Until*
procedure is looping?
I'm thinking of something simple in the loop like *c=c+1* (??) but how do
I
get to show the *c* value in , say, cell A1 .

Many Thanks