Selection.End(xlToRight).Select

will do what Ctrl+RightArrow does. It should speed it up spectacularly.

HTH,
Nikos

"Billabong " wrote in message
...
Hi,

My problem goes like this. I have 5 tables within a sheet.

Each table consist of variable no of columns where recordsare
inputted.

Each table is separated from another tables by a variable no of columns
with "blank" records.

Is there any way I can improve on the following code (I find it too
slow)?


StartC1 = m

Do
'<expression1......
StartC1 = StartC1 + 1
Loop Until Cells(Rowi, StartC1).Value = Empty

StartC2 = StartC1

Do
'<expression1......
StartC2 = StartC2 + 1
Loop Until Cells(501, StartC2).Value < Empty

StartC3 = StartC2
Do
'<expression1......
StartC3 = StartC3 + 1
Loop Until Cells(501, StartC3).Value = Empty

etc....

StartC2 = StartC2 - 1



More Power!!!

BR,
Billabong


---
Message posted from http://www.ExcelForum.com/