Refresh Windows DESKTOP via VBA

[memaxt]

Hi there,

I have vba that renames an external database, upon renaming the database it is not instantly updated unless you refresh the folder / desktop, is there vba that can refresh the windows desktop?

 

[arnelgp]

Public Sub subRefreshDesktop()

 Dim WSHShell As Object
 Set WSHShell = CreateObject("WScript.Shell")
 WSHShell.AppActivate "Program Manager"
WSHShell.SendKeys "{F5}"
Set WSHShell = Nothing

End Sub

 

[memaxt]

Thank you arnelgp,

That worked a treat!