Makro za posodabljanje

Private Sub Workbook_Open()
    Dim StolpecStevilkaRacuna, PotDoDatotek, List, ZacetnaVrstica, Vrstica, StevilkaRacuna, ImeDatotek, Stolpec, Formula, PrejsnjaFormula

    ' *** Nastavitve ***
        StolpecStevilkaRacuna = "C"
        ZacetnaVrstica = 11
        PotDoDatotek = "C:\Users\Svetkom\Documents\aOPB\Računi\"
        ImeDatotek = "Račun "
        List = "Sheet1"

    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Vrstica = ZacetnaVrstica
    StevilkaRacuna = Range(StolpecStevilkaRacuna & Vrstica).Value

    Do While fso.fileExists(PotDoDatotek & ImeDatotek & StevilkaRacuna & ".xlsx")
        Formula = "='" & PotDoDatotek & "[" & ImeDatotek & StevilkaRacuna & ".xlsx]" & List & "'!"

        For Stolpec = 1 To 20
            If Cells(Vrstica - 1, Stolpec).HasFormula Then
                PrejsnjaFormula = Cells(Vrstica - 1, Stolpec).Formula
                PrejsnjaFormula = Right(PrejsnjaFormula, Len(PrejsnjaFormula) - InStr(1, PrejsnjaFormula, "!"))
                Cells(Vrstica, Stolpec).Formula = Formula & PrejsnjaFormula
            End If
        Next

        Range(StolpecStevilkaRacuna & Vrstica).Value = StevilkaRacuna
        Vrstica = Vrstica + 1
        StevilkaRacuna = StevilkaRacuna + 1
    Loop
End Sub