I find this more straightforward:

dim xlTest as workbook

set xltest = nothing
on error resume next
set xltest = workbooks("theplayingboard.xls")
on error goto 0

if xltest is nothing then
set xltest = workbooks.open(....)
end if

xltest.activate
xltest.worksheets("combat").activate

===


I think this'll cause trouble if ThePlayingBoard.xls isn't active:
Workbooks("ThePlayingboard.xls").Worksheets("Comba t").Activate



John Keith wrote:

Im getting an error when running this code on the Set. (I found this code as
a solution on another post, but it won't seem to work.)

thedir = CurDir()
On Error GoTo notOpen
Set xlTest = Workbooks("ThePlayingboard.xls") ***
GoTo itsOpenNow
notOpen:
Workbooks.Open Filename:=theDir & "\" & "ThePlayingboard.xls",
UpdateLinks:=0
itsOpenNow:
Workbooks("ThePlayingboard.xls").Worksheets("Comba t").Activate

At the *** marker, this is the line that gets a "runtime error 9, subscript
out of range" which I assume is the Workbooks(sub) its talking about. and
this Should happen because the file was not open. I was under the impression
that the On Error GoTo label would trap the error and force the execution
pointer to jump on past the error.

I'm just trying to make sure the file is open, if it is open then Activate,
else open it then activate. How do you do that?

--
Regards,
John

--

Dave Peterson