Objekte variable einfügen

Ich möchte mehrere Objekte, z.B. Verknüpfungen zu Musikdatein in mein Excelsheet einfügen. Mit
ActiveSheet.OLEObjects.Add(Filename:= "C:\musik\hallo.mid", Link:=True, DisplayAsIcon:=False).Select
funktioniert das für eine Datei einwandfrei, wenn ich allerdings den Dateinamen variabel eingeben will, also:
dname = ...
ActiveSheet.OLEObjects.Add(Filename:= dname, Link:=True, DisplayAsIcon:=False).Select
bekomme ich eine Fehlermeldung. Weiss einer wie es funktioniert?
Danke