Macro to update cells based on a named range

I currently have a print macro that looks for blanks in column A hides them and prints(shown below). Now i want to add to this macro to have cell B4 update for everything in my named range (named range is List).

If my named range consisted of 5 items (A,B,C,D,E) I want to macro to put "A" in B4 then print (I have formulas looking at cell B4). Then put "B" in cell B4, and print. And so on.

Sub Print()
Application.Calculation = xlManual
Application.ScreenUpdating = False
Range("A:A").EntireRow.Hidden = False
Dim currentRow As Object
For i = 1 To 2000 'Range("A:A").Rows.Count
    If (Range("A:A").Rows(i).Text = "") Then
        Range("A:A").Rows(i).EntireRow.Hidden = True
    End If
Next i
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Range("A:A").EntireRow.Hidden = False
Application.ScreenUpdating = True
Application.Calculation = xlAutomatic
End Sub

Thanks,
Jeff