Как да поправя макроса да работи правилно?

Здравейте, преди време записах един макрос и като го изпълнявам с бутон за бърз достъп от лентата, ми дава грешка, че макроса не е достъпен, а макроса е записан в личната папка с всички други макроси, а като отворя макроса с Alt + F11 и го изпълня стъпка по стъпка, няма проблем да се изпълни. Къде е грешката?

Sub BestelldatumExportListe()

'

' DateExportList Macro

' vlookup за дата

Worksheets("export-2").Activate

Range("H2").Select

Range("H2").FormulaR1C1 = "=VLOOKUP(RC[-5],'PO all'!C[-5]:C[-4],2,0)"

Range("H2").Select

Selection.NumberFormat = "m/d/yyyy"

LastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row

'namira posleden red v A

ActiveSheet.Range("H2:H" & LastRow).FormulaR1C1 = "=VLOOKUP(RC[-5],'PO all'!C[-5]:C[-4],2,0)"

End Sub

Благодаря предварително!