Problem when trying to update a cell in an external worksheet that is already open

[BazzaBit]

I have 2 workboots

The first one holds multiple sheets named Bet Angel (1) thru to Bet Angel (32)
Each sheet has identical VBA code (except in relating to different cells in the active worksheet)

Each Bet Angel (n) shett has cell P2 which is linked to a different cell on 'C:\[Initial.xls]Start'!,$A$3 (in this example cell A3)

At the start of each betting day all of cells in column A (3 onwards) are reset to Y, this workboot is then saved manually but remains open

As each Bet Angel (n) sheet is automatically opened at a certain time the VBA Worksheet.Change event is triggered
The first step in this VBA code is to perform certain actions on the active worksheet BUT I need to do this only once

At the end of the active worksheet cell changes I need to update cell 3 in the INITIAL worksheet to N (in this example)
BUT to not close it

When I run the (abbreviated) VBA code below (just for step 1 - Initialise)
I get the Msgbox value of Y but on continuing I get a VBA error on the Workbooks.Open line which I'm sure is the problem

So my question is:

How can I get the attached VBA code below to simply update the external Initial.xls and Worksheet Start in cell A3 to N
while still leaving it open so that

(a) The Active Worksheet Bet Angel (1) cell P2 changes to N so the first step in the VBA code is only ever executed ONCE
(b) Each other Bet Angel (n) worksheet when activated initially picks up Y in the DO INITIALISE ACTION then immediately changes
to N as the INITIAL worksheet is updated but remains open

Very frustrating at the moment but I'm pretty sure the problem lies with Workbooks.Open

Any assistance / advice must appreciated as I'm sure I am doing something basically wrong

Helps if I add the code

=============================================================
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

'=============================================================
' First time here
If Range("P2").Value = "Y" Then

Application.EnableEvents = False
'=============================================================
' Change INITIAL to N so this code cannot be repeated
Dim xThisRow As Integer
Dim xThisWB As Workbook, xThisWS As Worksheet
Dim xInitWB As Workbook, xInitWS As Worksheet

Dim xHour As Integer
Dim xMinute As Integer
Dim xSecond As Integer
Dim xCountDown As Integer

Set xThisWB = ThisWorkbook ' Define THIS workbook
Set xThisWS = xThisWB.ActiveSheet ' Define THIS Work Sheet

'================================================================

Set xInitWB = Workbooks.Open("C:\Initial.xls") ' Define the INITIAL workbook
Set xInitWS = xInitWB.ActiveSheet ' Define the INITIAL work sheet
'

MsgBox "WS value is " & xInitWS.Cells(3, 1)

xInitWS.Cells(3, 1) = "N" ' Change the INITIAL value to N

' xInitWB.Close.SaveChanges:=True ' Close the INITIAL workbook

'=============================================================
Application.EnableEvents = True

'=============================================================



End If

End Sub

=============================================================

Cheers

BazzaBit

[BazzaBit]

VBA code now added