Excel: Prosím o vytvoření makra

[KRTa123]

Cau,
resim problem, ktery s tim to castecne souvisi..
Pridal jsem makro do souboru personal.xls a v libovolnem excelu se mi spusti. Potrebuji ho ale volat z accessu a tam mi to zkolabuje, ze makro neexistuje..

kod v accessu, ktery mi spousti makro v xls je takhle:

XL.Workbooks.Open pom
XL.Run "PERSONAL.XLS!Module1.uzamkni"
XL.ActiveWorkbook.Close
XL.Quit

Chyba 1004

v promenne pom je ulozena cesta k souboru (ta je spravne)
u nazvu makra jsem zkousel uzamkni i PERSONAL.XLS!Module1.uzamkni

Diky

[Palino]

Můžu se ještě zeptat jak změnit písmo pro vkládaný text z makra?

[navstevnik]

Muzes si nahrat makro zmeny fontu v bunce, po uprave dostanes neco takoveho:

Kód: Vybrat vše

Option Explicit

Sub ZmenitFont()
  With ActiveSheet.Range("d1").Font
    .Name = "MS Sans Serif"
    .Bold = True
    .Underline = xlUnderlineStyleSingle
    .Italic = True
    .ColorIndex = 3
    .Size = 14
  End With
End Sub