Highlight Selected Excel file in Explorer
Hi Reader
Do you know how to higlight selected Excel file in Explorer ?
Sub APOpen_FileLocation()
Dim objFSO, objShell, strDir, strName
strDir = ActiveWorkbook.Path
strName = ActiveWorkbook.FullName
On Error Resume Next
'MsgBox strDir
Set objFSO = CreateObject("Scripting.FileSystemObject")
strDir = objFSO.getFolder(strDir)
If Err.Number = vbEmpty Then
Set objShell = CreateObject("WScript.shell")
objShell.Run ("Explorer" & " " & strDir)
'~~ Highlight Selected Excel file in explorer
End If
Set objFSO = Nothing
Set objShell = Nothing
Set strDir = Nothing
End Sub
|