I need a script so it will activate the window in which the macro is details are held in

example

I open a file on open this file has macro to record my user name and on close it pastes my user name to a logbook.xls and after it has done this I need it to go back to the origanal document and select sheet callsdata. 

Private Sub USERCLOSE()

On Error GoTo RunCode
Workbooks("Control Panel.xls").Activate
On Error GoTo 0
Exit Sub

RunCode:

Sheets("UserData").Select
Range("A10").Select

listofusers = Array("ian", "andy", "phil", "muneer", "mel", "rachelh", "rachelo", "liz", "jemma", "helen", "christine", "sharon", "julie", "danielle", "linda", "karen", "emma")

For n = 0 To UBound(listofusers)
'MsgBox (listofusers(n)) & "." & n & " " & LCase(ActiveCell.Value)(testing purposes)
If LCase(ActiveCell.Value) = (listofusers(n)) Then
Run "UserdataOnClose"
Exit Sub
End If
Next n

Sheets("CallData").Select

End Sub
The sheet ("CALLDATA").select always fails if i have other workbooks open. please help