Soru Argument not optional uyarısı

[bravo64]

Merhaba değerli arkadaşlar, oluşturduğum excel dosyasında, a1 hücresine yazdığım pdf dosya adına göre, onedriveden aynı yol üzerinde bulunan klasörden bu pdf dosyasını görüntülemek istiyorum..(Mac excel'de çalışıyorum)
Kod şöyle gelişti (Forumdan yaptığım incelemelerle)

sub pdfopen()
Dim PatientenArchief=Thisworkbook.path & "\"& "PatientenArchief"
dosya=Sheets("prestatie").[x1]
if dosya<>" " then
CreateObject(Shell.Application). Open (PatientenArchief & "\" & dosya & ".pdf")
End if
End Sub

Kod çalıştığında
Compile error
Argument not optional uyarısı alıyorum..
CreateObject(Shell.Application). Open (PatientenArchief & "\" & dosya & ".pdf") kod satırında ' Shell seçili uyarı geliyor..
Windows excelde başka dosyalarda çalışıyor ama mac excelde hata veriyor..

İlgilenebilecek yol gösterecek hocalarımıza/arkadaşlara teşekkür ederim..

 

[bravo64]

Dim satırı düzeltilmiştir.
PatientArchive klasörü (pdf dosyalarının bulunduğu) onedrive içinde aynı adrestedir.

 

[Korhan Ayhan]

Parantez içindeki ifadeyi çift tırnak içinde yazmalısınız.

CreateObject("Shell.Application")

 

[bravo64]

Üstad, ActiveX component can't creeate object uyarısı verdi bu defa..

 

[Korhan Ayhan]

Mac'le alâkalı bir durum olabilir mi?

 

[bravo64]

sanırım öyle , çok araştırdım ama bulamadım web'de bir çok forumda da baktım..