If you have Library Manager open and are connected to it through automation using:
libApp = GetObject(, "LibraryManager.Application")
libDoc = libApp.ActiveLibrary
Then you can quickly get to cell editor like this:
Dim cellEd As CellEditorAddinLib.CellEditorDlg = libDoc.CellEditor
Dim cellDB As CellEditorAddinLib.CellDB = cellEd.ActiveDatabase