Dim server As Object


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error GoTo errorHandler
    If server Is Nothing Then
        Set server = CreateObject("BasicATLServer.TheCoClass")
    End If
    If IsEmpty(Target) Then
        Target.Value = server.getString
    Else
        server.setString (Target.Value)
    End If
Exit Sub
errorHandler:
    MsgBox "Couldn't create the server reference"
End Sub