VBA - Fejl i Rage formulering

Jeg har nedenstående kode. Jeg får fejl i min definering af strengen. Nogen der kan se hvad fejlen er

Dim i As Integer
   
    i = 3
   
    Do Until Cells(i, 5).Value <> Cells(i - 1, 5).Value
   
        Dim strRange  As String
        strRange  = "A" & i & ":AE" & i &  'Her får jeg fejl 
   
        Set NewWorkbook = Workbooks.Add
        Workbooks("Resultatark Managers.xls").Sheets("Managers").Range(strRange).Value).Copy ActiveCell
       
        i = i + 1
    Loop
    Workbooks(NewWorkbook.Name).Save