Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Else without if?
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. |