I Need VBA Assistance looking for End of a file

Good afternoon,

I need to know a VBA command that will look at all cells in Column B until
end of file or EOF. I tried DO UNTIL ... EOF, but didn't seem to work. Any
suggestions? Thanks.

Here is some fairly straightforward code. You can use rngCurrentSpot the same
as you would use Activecell.

Private Sub Traverse()
Dim lngLastRow As Long
Dim rngCurrentSpot As Range

lngLastRow = ActiveSheet.Range("A65535").End(xlUp).Row
Set rngCurrentSpot = ActiveSheet.Range("A2")
Do While rngCurrentSpot.Row <= lngLastRow
MsgBox rngCurrentSpot
Set rngCurrentSpot = rngCurrentSpot.Offset(1, 0)
Loop
End Sub

There are lots of other ways to do this that you might want to investigate
including:
SpecialCells(xlLastCell)
UsedRange

HTH

"Brent E" wrote:

> Good afternoon,
>
> I need to know a VBA command that will look at all cells in Column B until
> end of file or EOF. I tried DO UNTIL ... EOF, but didn't seem to work. Any
> suggestions? Thanks.
>

Don't confuse EOF -- which refers to the end of a disk file -- with the end of
the data in a worksheet column.

On Fri, 25 Feb 2005 14:13:01 -0800, "Brent E"
<BrentE@discussions.microsoft.com> wrote:

>Good afternoon,
>
>I need to know a VBA command that will look at all cells in Column B until
>end of file or EOF. I tried DO UNTIL ... EOF, but didn't seem to work. Any
>suggestions? Thanks.