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