עריכת פונקציה באקסל

שלום,

אני רוצה לעשות לעצמי מקרו כפתור באקסל שיוסף לי כבצים כאייקון וישנה להם את השם לשם של הקובץ (במקוץ לכל הPATH)

בנתיים יש לי את הקוד הזה

Sub IsrtFile()
Dim FileToOpen
Dim holdvar
FileToOpen = Application _
  .GetOpenFilename("Package (*.*), *.*")
If FileToOpen <> False Then
holdvar = FileToOpen
While InStr(holdvar, "\") > 0
holdvar = Right(holdvar, Len(holdvar) - InStr(holdvar, "\"))
Wend

  ActiveSheet.OLEObjects.Add(Filename:=FileToOpen, Link:=False, _
    DisplayAsIcon:=True, IconFileName:="packager.exe", IconIndex:=0, _
    IconLabel:=holdvar).Select

End If

End Sub

הקוד פועל טוב עבור קבצים יחידים אבל אני רוצה לשפר אותו ואני אשמח אם מישהו יוכל לעזור לי

האם יש דרך לעשות משהו דומה ועבור מספר קבצים בו זמנית? הכוונה שבתיבה לבחירת קובץ אני אוכל לבחור מספר קבצים וכולם יוספו אחד ליד השני או אחד על השני

הדבר השני זה האם יש דרך לגרם לאייקון שהתווסף להיות לפי סוג הקובץ (אקסל, pdf וכו) ?

האם יש אפשרות לשנות את השם של הקובץ שהתווסף להיות בלי הסיומת אלה רק השם של הקובץ?

אשמח אם מישהו יוכל לעזור לי או להפנות אותי למקום שאוכל להעזר

בתודה,

אור