Makro fejler ved Activeworkbook.SaveAs kommando

Hej - jeg er amatør på VBA kodning, men har alligevel forsøgt mig med at stykke en makro sammen. Den starter meget godt men fejler i delen med :

ActiveWorkbook.SaveAs Filename:=intColKopiTilPos, _
            CreateBackup:=False

Ideen er at makro skal åbne fil angivet i kolonne 1
og gemmen den med filnavn i kolonne 2

Meget simpelt, men for svært for mig at gennemskue problemet. Jeg vedlægger hele koden herunder og håber på hjælp :

Sub KopierFilerRækkevis()

'Dimensioner rækkevariable
    Dim lngRkStart As Long
    Dim lngRkSlut As Long
    'Dim lngRkIndex As Long
   
'Hvilke rækker skal behandles?
    lngRkStart = InputBox("Indtast første rækkenummer")
    lngRkSlut = InputBox("Indtast sidste rækkenummer")
   
'HERUNDER SKAL ALT ROBOT KODE SKRIVES
'====================================================================

Dim i As Long
Dim Funktion As String



Dim intColKopiFraPos As String
Dim intColKopiTilPos As String


For i = lngRkStart To lngRkSlut

 
    intColKopiFraPos = Cells(i, 1)
    intColKopiTilPos = Cells(i, 2)
    intColTime = Cells(i, 3)
   
       
        Workbooks.Open Filename:=intColKopiFraPos
        ActiveWorkbook.SaveAs Filename:=intColKopiTilPos, _
            CreateBackup:=False
        ActiveWindow.Close
       
    Cells(i, intColTime) = Now
    Next i

   
    Exit Sub
   
        MsgBox ("Filerne er kopieret")
   

End Sub