Open window - on error
perfect!! - thxs
Norman Jones wrote:
Hi Al007,
Try:
'=============
Sub Opendefactivewkbk()
Dim wb As Workbook
Dim FName
Dim myDir As String
myDir = CurDir
On Error Resume Next
Set wb = ActiveWorkbook
On Error GoTo 0
If Not wb Is Nothing Then
If ActiveWorkbook.Path < vbNullString Then
ChDrive ActiveWorkbook.Path
ChDir ActiveWorkbook.Path
End If
Else
ChDrive "D" '<<==== CHANGE
ChDir "D:\Test" '<<==== CHANGE
End If
FName = Application.GetOpenFilename()
If FName < False Then Workbooks.Open FName
ChDrive myDir
ChDir myDir
End Sub
'<<=============
---
Regards,
Norman
"al007" wrote in message
oups.com...
Norman,
sorry to trouble u, but have tested the code & it does not work -
it's not opening folder of my current active workbook (but my last
opened folder) & it does not work if I apply it when I have no active
workbook open - can u help pls
thxs
|