E=SamT;353301]Sub ThisApp_SheetBeforeDoubleClick(ByVal Sht As Object, ByVal Target As Range, Cancel As Boolean)
In re the above:

 ... is a RAM clone of the Sheet that was double clicked...
Sorry, to ask, but I know what a clone is, but have no idea what a RAM Clone is, excuse my ignorance.

Note: None of the "working" Subs should be in the Personal ThisWorkbook Code Page
Yes, None of my subs reside in the Personal ThisWorkbook Code Page, only code that is at present is this below :
I do have a have a library of "working " Macros and I'd like to be able to merely add this one to it and let my sub below choose which one(s) to run. 

Sub DiscoverWhatRptRan() 
     '
     ' Keyboard Shortcut: Ctrl+g
     '
     'To Automatically choose the correct
     VBA based on sheet name
,

Thanks again, note : only the code below is in my personal>thisworkbook
Public WithEvents ThisApp As Application
 
Private Sub Workbook_Open()
    Set ThisApp = Me.Application
End Sub
 
 'This one is tested as written
Private Sub ThisApp_WorkbookOpen(ByVal Wb As Workbook)
     'Do stuff
    'MsgBox "ThisAppWorkbookOpen"
End Sub
 
 
Sub ThisApp_SheetBeforeDoubleClick(ByVal Sht As Object, ByVal Target As Range, Cancel As Boolean)
     'Stop
    If Sht.Parent Is ThisWorkbook Then Exit Sub
     
     'If all Workbook will have the same Root
     'If not Sht.Parent.Path = ??? Then exit Sub
     'If all have a similar name part
     'If not InStr(Sht.Parent.Name, NamePart), then Exit Sub
     'Do Stuff
    Dim MyRange As Range
    Dim IntersectRange As Range
     Dim EndRow As Long
     '
     '
     Application.ScreenUpdating = False
     '
     EndRow = Range("D" & Rows.Count).End(xlUp).Row
     MsgBox EndRow
     Set MyRange = Range("G2:J" & EndRow)   'last row
    'Set MyRange = Range("G2:G1000") 'last row
     'Stop
    Set IntersectRange = Intersect(Target, MyRange)
    On Error GoTo SkipIt
    If IntersectRange Is Nothing Then
        Exit Sub
    Else
         '
        '
        Target = Format(Now, "ttttt")
       ' MsgBox " still need to format cells with ...custom macro hh:mm"
         '
        Application.ScreenUpdating = True
    End If
    ActiveCell.Offset(, 1).Select
     '
     '
SkipIt:
    Exit Sub
     '
     
End Sub
Is this where it should stay, or was this just for testing purposes?