View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
JE McGimpsey JE McGimpsey is offline
external usenet poster
 
Posts: 4,624
Default Saving Totals Row to Separate Worksheet - Next w/o For Error ?

The problem is that you're missing an

End If

between

End With

and

Next RowNdx

In article . com,
u473 wrote:

I cannot detect my own For Next Error in this code..
Sub SaveTotals()
'
' Detect Phase Total Row from Column I & Save row to Totals Sheet
Dim RowNdx As Long, LastRow As Long
LastRow = ActiveSheet.UsedRange.Rows.Count
For RowNdx = LastRow To 13 Step -1
If Cells(RowNdx, "I").Value = "Phase Totals" Then
Cells(RowNdx, "A").Value = Cells(RowNdx, "E7").Value
With Sheets("Totals")
lr = .Cells(Rows.Count, "a").End(xlUp).Row + 1
Rows(c.Row).Copy .Cells(lr, 1)
End With
Next RowNdx
End Sub

Help appreciated,
Celeste