Repeat Macro

[Houli]

This should be an easy one. I want to repeat this macro until the active cell is empty. For instance, right now the macro is placing the active cell (Ref!RC[-2]) in cell "C2". Now I want this whole macro to start over and place Ref!RC[-3] in cell "C2". I would this to repeat until the active cell or blank or thru a set range, whichever option is easier.

Sub RunSave()
'
' RunSave Macro
'
'
Range("C2").Select
ActiveCell.FormulaR1C1 = "=Ref!RC[-2]"
Dim cell As Range
For Each cell In Range("T10:T44")
If UCase(cell.Value) = 1 Then
cell.EntireRow.Hidden = True
End If
Next
ThisFile = Range("C2").Value
ActiveWorkbook.SaveAs Filename:=ThisFile
Rows("1:949").Select
Selection.EntireRow.Hidden = False
End Sub

 

[VoG]

Try

Sub RunSave()
'
' RunSave Macro
'
'
Dim LR As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
Range("C2:C" & LR).FormulaR1C1 = "=Ref!RC[-2]"
Dim cell As Range
For Each cell In Range("T10:T44")
If UCase(cell.Value) = 1 Then
cell.EntireRow.Hidden = True
End If
Next
ThisFile = Range("C2").Value
ActiveWorkbook.SaveAs Filename:=ThisFile
Rows("1:949").Select
Selection.EntireRow.Hidden = False
End Sub

 

[Houli]

Thanks, but that's not exactly what I was looking for. That suggestion takes the next active cell and places it in cell C3, C4, etc. I need the macro to after the workbook has saved replace cell C2 with the next active cell...and continue this loop until the active cell is blank.