Currently I have an application that evaluates 3 separate ranges concurrently, if a value is found in a range then I open a second workbook and copy the values then close and save the second workbook. So if a value is found in all 3 ranges I will open and close the second workbook 3 times.

I already have code that determines if I should open the second workbook but if I try and open the workbook when it is already open I get a message that warns me that opening the workbook again will discard any change I have made.

What I want is just some code that I can use to check if the workbook is already open then skip over the open file.
Sub open_time_off()
' need to check if workbook time_off is open
Workbooks.Open Filename:="c:\temp\time_off.xls" 'open time off file
Workbooks(1).Activate ' activates current time sheet
End Sub