If statement to check if workbook is OPEN?

[Michael]

Hi,

How do you use "If" statement to open a workbook, and if closed to open it?

Give an example please...

Thanks alot,
Mike

 

[Bob Phillips]

Mike,

Try this

Dim oWb As Workbook

On Error Resume Next
Set oWb = Workbooks("SIP 2004.xls")
On Error GoTo 0
If oWb Is Nothing Then
Workbooks.Open Filename:="SIP 2004.xls"
End If

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

 

[Frank Kabel]

Hi
try the following UDF

Sub Function WB_Open(filename as string)
Dim WBook As Workbook
On Error Resume Next
Set WBook = Workbooks(filename)
On Error GoTo 0
If WBook Is Nothing Then
Workbooks.Open Filename:= filename
End If
end Sub

 

[Frank Kabel]

Sorry
was meant to be a procedure and not an UDF
Use
Sub Public WB_Open(filename as string)
Dim WBook As Workbook
On Error Resume Next
Set WBook = Workbooks(filename)
On Error GoTo 0
If WBook Is Nothing Then
Workbooks.Open Filename:= filename
End If
end Sub

 

[Michael]

Thanks Frank very much...

Mike

Sorry
was meant to be a procedure and not an UDF
Use
Sub Public WB_Open(filename as string)
Dim WBook As Workbook
On Error Resume Next
Set WBook = Workbooks(filename)
On Error GoTo 0
If WBook Is Nothing Then
Workbooks.Open Filename:= filename
End If
end Sub