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.