S makrama mám minimum zkušeností, ale tohle si myslím je klasický úkol pro normální program.
V normálním programu by to bylo mnohem snažší.
ODKAZ ZDE.
ShellExecute 0, "runas", "c:\folder\yourapp.exe", Command & "/admin", vbNullString, SW_SHOWNORMAL
Unload Me
Exit Sub
End If