VBA : List Special Folders

The following code displays path of all special folders in Windows on the worksheet. Copy the following code in a general module and run(F5).

e.g.

Special Folder	Path
Desktop	C:\Users\Public\Desktop
Start Menu	C:\ProgramData\Microsoft\Windows\Start Menu
Programs	C:\ProgramData\Microsoft\Windows\Start Menu\Programs
Startup	C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Startup
Desktop	C:\Users\Kannan\Desktop
Roaming	C:\Users\Kannan\AppData\Roaming