I have written a loop to go down a range of codes one by one, copying and pasting each active cell into another worksheet, printing that worksheet and repeating the process for the next code down in the list theoretically until the bottom cell which contains the word END, where I want my macro to stop.

Despite my variable being assigned and in VBA showing that it recognises the value to be "END" when the active cell reaches the bottom cell the macro is not stopping and carries on going into the blank cells.

Can anybody see where I've gone wrong? As far as I can see I've assigned the variables and given a condition for the loop to stop and am at a loss to why the thing keeps going once it reached the "END" cell.

Code below, any advice or thoughts greatly appreciated.

Sub PrintISINPage()

    Dim myWorkbook As Workbook
    Dim wsISINList As Worksheet
    Dim wsISINToPrint As Worksheet
    Dim ISINPrint As Range
    Dim myCommand As String

    Set myWorkbook = ActiveWorkbook
    Set wsISINList = Sheets("ISINList")
    Set wsISINToPrint = Sheets("ISINToPrint")
    Set ISINPrint = Range("ISINPrint")
    
    myCommand = ActiveCell.Value()
    
    wsISINList.Select
    Range("A1").Select
    Selection.Copy
    wsISINToPrint.Select
    ISINPrint.Select
    Selection.PasteSpecial Paste:=xlAll
    wsISINToPrint.PrintOut
    Sheets("ISINList").Select

    Do Until myCommand = "END"
        wsISINList.Select
        ActiveCell.Offset(1).Activate
        Selection.Copy
        wsISINToPrint.Select
        ISINPrint.Select
        Selection.PasteSpecial Paste:=xlAll
        wsISINToPrint.PrintOut
        wsISINList.Select
        ActiveCell.Activate
    Loop
End Sub