Что делают эти "<>" и n $ в VBA?
Например, если у меня следующий код:
If ThisWorkbook.Path <> Application.StartupPath And Dir(Application.StartupPath & "\" & "1006.xls") = "" Then
Application.ScreenUpdating = False
ThisWorkbook.Sheets("StartUp").Copy
ActiveWorkbook.SaveAs (Application.StartupPath & "\" & "1006.xls")
n$ = ActiveWorkbook.Name
ActiveWindow.Visible = False
Workbooks("1006.xls").Save
Workbooks(n$).Close (False)
End If