Temat: przerwanie makra po otwarciu pliku

Mam makro ktore cos tam wczytuje i na tej podstawie aktualizuje dane w oparciu o jeden plik. Niestety w momencie otwarcia tego pliku makro po prostu przestaje dzialac - bez zadnego komunikatu ani nic, po prostu sie przerywa. Makro wyglada mniej wiecej tak:

Sub CopyFromCennik()

Dim myReport As Report

Dim Calculation As Integer



On Error GoTo ErrorHandler



Application.DisplayAlerts = False

Calculation = Application.Calculation

Application.Calculation = xlCalculationManual

Application.EnableEvents = False



Set myReport = ReturnReport(Selection)

pare niewaznych procedur



Application.DisplayAlerts = True

Application.Calculation = Calculation 

Application.EnableEvents = True

Exit Sub



ErrorHandler:

Call ErrorHandler



End Sub



Private Function ReturnReport(myRange as Range) as Report



Set ReturnReport = New Report



With ReturnReport

    Set .CennikBook = Workbooks.Open(.CennikPath)

pare niewaznych wlasciwosci

End With

Makro przestaje dzialac na tej linijce z Set .CennikBook

Co ciekawe jak sie to przeklika F8 to dziala bez zarzutu

Tak samo jak sie zastopuje na linijke przed a potem odpali F5 to tez dziala bez zarzutu

Natomiast jak calosc odpale skrotem klawiszowym to otwiera wskazany skoroszyt, aktywuje go i przestaje dzialac - bez zadnego znaku ze cos jest nie tak

Kod jest w module w dodatku, plik jest dobry, zreszta probowalem z kilkoma innymi (zarowno na sieci jak i na dysku lokalnym)

Wie ktos moze co z tym mozna zrobic zeby normalnie dzialalo?

Edit: Makro dziala tez normalnie po kliknieciu przycisku w menu oraz po wybraniu w menu uruchom makra (alt + F8)...Michał C. edytował(a) ten post dnia 14.12.09 o godzinie 11:45