Då Windows blockerar excel från att öppna mappar på datorn eller av andra anledningar vill öppna en specifik mapp kan du använda följande kod:
Dim mapp As Object
Set mapp = CreateObject("InternetExplorer.Application")
Application.Wait Now + TimeValue("00:00:02")
mapp.Visible = True
AppActivate "Windows Internet Explorer"
Application.Wait Now + TimeValue("00:00:01")
mapp.Navigate "C:\mapp\mapp"
mapp.Visible = True