Open Workbook
 

I want to be able to perform actions conditional on if a specific workbook is
open or not - so, if it isn't already open, I want to open it, but if it is
open, I want to just activate it....would it be something like:

If Workbooks("Updated Responder Data.xls").Open = False Then

Workbooks.Open Filename:= _
ActiveSheet.Range("I1").Value & "Updated Responder Data.xls"

End If

If Workbooks("Updated Responder Data.xls").Open = True Then

Windows("Updated Responder Data.xls").Activate

End If

Thank you ahead of time!!

Open Workbook
 

Sub demo()
Dim wb As Workbook
Dim s As String
Dim is_it_open As Boolean
s = "Book1"
is_it_open = False
For Each wb In Workbooks
If wb.Name = s Then
is_it_open = True
End If
Next
MsgBox (is_it_open)
End Sub

This sets a boolean variable based upon the open state of Book1.xls. Once
you have established its value, you can use it for conditional logic.
--
Gary''s Student


"Matt" wrote:

I want to be able to perform actions conditional on if a specific workbook is
open or not - so, if it isn't already open, I want to open it, but if it is
open, I want to just activate it....would it be something like:

If Workbooks("Updated Responder Data.xls").Open = False Then

Workbooks.Open Filename:= _
ActiveSheet.Range("I1").Value & "Updated Responder Data.xls"

End If

If Workbooks("Updated Responder Data.xls").Open = True Then

Windows("Updated Responder Data.xls").Activate

End If

Thank you ahead of time!!

Open Workbook
 

Thank you very much...I will try this and let you know how it works!

"Gary''s Student" wrote:

Sub demo()
Dim wb As Workbook
Dim s As String
Dim is_it_open As Boolean
s = "Book1"
is_it_open = False
For Each wb In Workbooks
If wb.Name = s Then
is_it_open = True
End If
Next
MsgBox (is_it_open)
End Sub

This sets a boolean variable based upon the open state of Book1.xls. Once
you have established its value, you can use it for conditional logic.
--
Gary''s Student


"Matt" wrote:

I want to be able to perform actions conditional on if a specific workbook is
open or not - so, if it isn't already open, I want to open it, but if it is
open, I want to just activate it....would it be something like:

If Workbooks("Updated Responder Data.xls").Open = False Then

Workbooks.Open Filename:= _
ActiveSheet.Range("I1").Value & "Updated Responder Data.xls"

End If

If Workbooks("Updated Responder Data.xls").Open = True Then

Windows("Updated Responder Data.xls").Activate

End If

Thank you ahead of time!!

Open Workbook
 

You are very welcome!
--
Gary's Student


"Matt" wrote:

Thank you very much...I will try this and let you know how it works!

"Gary''s Student" wrote:

Sub demo()
Dim wb As Workbook
Dim s As String
Dim is_it_open As Boolean
s = "Book1"
is_it_open = False
For Each wb In Workbooks
If wb.Name = s Then
is_it_open = True
End If
Next
MsgBox (is_it_open)
End Sub

This sets a boolean variable based upon the open state of Book1.xls. Once
you have established its value, you can use it for conditional logic.
--
Gary''s Student


"Matt" wrote:

I want to be able to perform actions conditional on if a specific workbook is
open or not - so, if it isn't already open, I want to open it, but if it is
open, I want to just activate it....would it be something like:

If Workbooks("Updated Responder Data.xls").Open = False Then

Workbooks.Open Filename:= _
ActiveSheet.Range("I1").Value & "Updated Responder Data.xls"

End If

If Workbooks("Updated Responder Data.xls").Open = True Then

Windows("Updated Responder Data.xls").Activate

End If

Thank you ahead of time!!