if i want to check if a file is not open the macro is
If Workbooks("Ttt.xls") Is Nothing Then.....


but when i want to write it in the opposit
like: If Workbooks("Ttt.xls") Is exist Then.....
this macro did not work
what is the correct macro to the opposit of " Is Nothing"

thank you
rozent

If NOT Workbooks("Ttt.xls") Is Nothing Then

"רוז×*ט" wrote:

if i want to check if a file is not open the macro is
If Workbooks("Ttt.xls") Is Nothing Then.....


but when i want to write it in the opposit
like: If Workbooks("Ttt.xls") Is exist Then.....
this macro did not work
what is the correct macro to the opposit of " Is Nothing"

thank you
rozent

hi patrick
i tried but i get the same msg either the file is open or not

Sub AAA()
On Error Resume Next
If Not Workbooks("filename.xls") Is Nothing Then
MsgBox "the file is open"
Exit Sub
Else
MsgBox "the file is not open"
End If

End Sub



"Patrick Molloy" wrote:

If NOT Workbooks("Ttt.xls") Is Nothing Then

"רוז×*ט" wrote:

if i want to check if a file is not open the macro is
If Workbooks("Ttt.xls") Is Nothing Then.....


but when i want to write it in the opposit
like: If Workbooks("Ttt.xls") Is exist Then.....
this macro did not work
what is the correct macro to the opposit of " Is Nothing"

thank you
rozent

You could just put what you want in the appropriate Then/Else portion of your
code.

Option Explicit
Sub testme()

Dim myWkbk As Workbook

Set myWkbk = Nothing
On Error Resume Next
Set myWkbk = Workbooks("TTT.xls")
On Error GoTo 0

If myWkbk Is Nothing Then
'do something
Else
'do something else
End If

End Sub

????? wrote:

if i want to check if a file is not open the macro is
If Workbooks("Ttt.xls") Is Nothing Then.....

but when i want to write it in the opposit
like: If Workbooks("Ttt.xls") Is exist Then.....
this macro did not work
what is the correct macro to the opposit of " Is Nothing"

thank you
rozent

--

Dave Peterson