Excel 2000
Windows 2k Pro

Suppose I have a Range variable MyRange, and it is set to a table on Sheet1.

Dim MyRange As Range, cell As Range
Dim a As Integer

Set MyRange = Range("A1").CurrentRegion

Now I want to step through the headers for this range, and the headers are
all in row 1. How would I do this? I tried:

a = 0
For Each cell in MyRange.Rows(1)
a = a + 1
[more code]
Next cell

I'm know that the "MyRange.Rows(1)" part of the For-Next loop is wrong - how
should it be? Any help appreciated.

-gk-

One way

Set myrange = Range("A1").CurrentRegion
For Hcell = 1 To myrange.Columns.Count
MsgBox Cells(1, Hcell)
Next


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"TBA" wrote in message ...
Excel 2000
Windows 2k Pro

Suppose I have a Range variable MyRange, and it is set to a table on Sheet1.

Dim MyRange As Range, cell As Range
Dim a As Integer

Set MyRange = Range("A1").CurrentRegion

Now I want to step through the headers for this range, and the headers are
all in row 1. How would I do this? I tried:

a = 0
For Each cell in MyRange.Rows(1)
a = a + 1
[more code]
Next cell

I'm know that the "MyRange.Rows(1)" part of the For-Next loop is wrong - how
should it be? Any help appreciated.

-gk-

Another way:

Option Explicit
Sub testme01()

Dim a As Long
Dim cell As Range
Dim myRange As Range

Set myRange = Range("a1").CurrentRegion

a = 0
For Each cell In myRange.Rows(1).Cells
MsgBox cell.Address
a = a + 1
'[more code]
Next cell

End Sub


TBA wrote:

Excel 2000
Windows 2k Pro

Suppose I have a Range variable MyRange, and it is set to a table on Sheet1.

Dim MyRange As Range, cell As Range
Dim a As Integer

Set MyRange = Range("A1").CurrentRegion

Now I want to step through the headers for this range, and the headers are
all in row 1. How would I do this? I tried:

a = 0
For Each cell in MyRange.Rows(1)
a = a + 1
[more code]
Next cell

I'm know that the "MyRange.Rows(1)" part of the For-Next loop is wrong - how
should it be? Any help appreciated.

-gk-

--

Dave Peterson