[VBA EXCEL] Export zaznaczenia do pdf z użyciem nazwy arkusza - rozszerzenie

Witam.
Od jakiegos czasu zagłebiłem się w VBA w Excelu celem stworzenia "programu" do faktur. Mój problem to to, że korzystając z kodu poniżej uzyskałem export zaznaczenia do pdf z wykorzystaniem aktualnej nazwy pliku, ale niestety tworzy m i plik np. faktura.xlsm.pdf - do nazwy dołącza rozszerzenie - nie moge sie tego pozbyć. Dodatkowo pomimo uzycia .parent path - nie zapisuje pliku w folderze, w którym znajduje się aktualnei edytowany plik...
wklejam mój kod:

Może ktos pomóc z kodem, aby poprawnie zapisywał plik?
Dopiero od 2 tygodni korzystam z VBA - więc jeszcze raczkuje, ale udało mi sie napisac cały program mnóstwem funkcji, ale tego przeskoczyc nie mogę...

.Parent dla ActiveWorkbook jest program Excel, wtedy zapisze w sciezku Excel'a
naprosto .Path jest sciezka do pliku
Split(.Name,".")(0) daje np. 'faktura'

Dodano po 2 [minuty]:

wtedy

Faktycznie, błąd amatora, dziękuję za pomoc. Zamykam temat