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!!

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!!

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!!

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!!