More code, this time getting an "Else without if" error at the else
line!

Range("a1").Select
Set TtlRng = Range(Selection, Selection.End(xlToRight))
For Each rFoundHd In TtlRng.Cells
If Right(rFoundHd.Value, 2) = "ID" Then
ActiveSheet.Range(rFoundHd,
rFoundHd.End(xlDown)).Select
With Selection
.HorizontalAlignment = xlRight
.NumberFormat = "@"
Else
Next rFoundHd
End If

Sure looks like an "If" to me, 6 lines above the else!
rFoundHd is declared as a range, as is TtlRng.
The code is supposed to look in row 1 for any header ending in "ID".
When it finds one, it should format that column to text and right align
it. Then move to the next cell in row 1.
Any suggestions?
Thanks in advance.

Need an End With statement after .NumberFormat line

"davegb" wrote:

More code, this time getting an "Else without if" error at the else
line!

Range("a1").Select
Set TtlRng = Range(Selection, Selection.End(xlToRight))
For Each rFoundHd In TtlRng.Cells
If Right(rFoundHd.Value, 2) = "ID" Then
ActiveSheet.Range(rFoundHd,
rFoundHd.End(xlDown)).Select
With Selection
.HorizontalAlignment = xlRight
.NumberFormat = "@"
Else
Next rFoundHd
End If

Sure looks like an "If" to me, 6 lines above the else!
rFoundHd is declared as a range, as is TtlRng.
The code is supposed to look in row 1 for any header ending in "ID".
When it finds one, it should format that column to text and right align
it. Then move to the next cell in row 1.
Any suggestions?
Thanks in advance.

Charlie wrote:
Need an End With statement after .NumberFormat line

Thanks, Charlie, but I'm still getting the same error.

It also looks like you have a For-Next structure error. Try:

For Each rFoundHd In TtlRng.Cells
If Right(rFoundHd.Value, 2) = "ID" Then
ActiveSheet.Range(rFoundHd, rFoundHd.End(xlDown)).Select
With Selection
.HorizontalAlignment = xlRight
.NumberFormat = "@"
End With
Exit For
End If
Next rFoundHd


"davegb" wrote:

More code, this time getting an "Else without if" error at the else
line!

Range("a1").Select
Set TtlRng = Range(Selection, Selection.End(xlToRight))
For Each rFoundHd In TtlRng.Cells
If Right(rFoundHd.Value, 2) = "ID" Then
ActiveSheet.Range(rFoundHd,
rFoundHd.End(xlDown)).Select
With Selection
.HorizontalAlignment = xlRight
.NumberFormat = "@"
Else
Next rFoundHd
End If

Sure looks like an "If" to me, 6 lines above the else!
rFoundHd is declared as a range, as is TtlRng.
The code is supposed to look in row 1 for any header ending in "ID".
When it finds one, it should format that column to text and right align
it. Then move to the next cell in row 1.
Any suggestions?
Thanks in advance.

My mistake, Charlie, I put in an "end" rather than an "end with". It's
working now!

Charlie wrote:
Need an End With statement after .NumberFormat line

"davegb" wrote:

More code, this time getting an "Else without if" error at the else
line!

Range("a1").Select
Set TtlRng = Range(Selection, Selection.End(xlToRight))
For Each rFoundHd In TtlRng.Cells
If Right(rFoundHd.Value, 2) = "ID" Then
ActiveSheet.Range(rFoundHd,
rFoundHd.End(xlDown)).Select
With Selection
.HorizontalAlignment = xlRight
.NumberFormat = "@"
Else
Next rFoundHd
End If

Sure looks like an "If" to me, 6 lines above the else!
rFoundHd is declared as a range, as is TtlRng.
The code is supposed to look in row 1 for any header ending in "ID".
When it finds one, it should format that column to text and right align
it. Then move to the next cell in row 1.
Any suggestions?
Thanks in advance.