objExcel.Application.Run "'Excel dosyasının tam yolu'!modul adı.makro adı"
Set objExcel = CreateObject("Excel.Application")
objExcel.Application.Run "'C:\Kullanıcılar\ExcelSitesi\Desktop\MakroluDosya.xlsm'!Module1.Makrom"
objExcel.DisplayAlerts = False
objExcel.Application.Quit
Set objExcel = Nothing