I have an app in VB6 that does some calcs and posts
the results on an Excel worksheet (WS10).

I'd like to effectively perform a "scoll" on WS10.

Here's what I have now:

Code:
For rr = 11 to 80
   DoCalcs rr
   If Calc1 = Empty
      Exit For
   EndIf
   WS10.Cells(rr, 2) = Calc1
   WS10.Cells(rr, 3) = Calc2
Next rr
This is working just fine.

Basically, the app calls DoCalcs, does the calcs, stores
the values in vars Calc1 and Calc2, and paints the results
in col 2 and 3 of WS10.

The loop is exited once Calc1 is Empty .. it's a long story, but
this is by design. I've simplified the above code for discussion
purposes.

Here is the rub. I can see rows 1 thru 50 without scrolling.
Up to now, the loop is exited prior to rr = 50, so, no issue.

I am now at the point where the loop will go, say, to rr = 55,
which means that I won't be able to follow the data as it is being
painted to the WS -- it will be off the bottom of the screen.

The WS is in FreezePanes -- ie, top 10 rows are fixed; scrolling
using the scrollbar begins by moving row 11, etc

What I'd like to do is, when rr=45, move the top row to be 45.

If this were a FlexGrid -- no probs -- FG1.TopRow = 45.
What is the syntax to do the same thing to WS10?

Spoo