Detect Excel, men det skal være en bestemt workbook

Jeg er ved at lave et program, der skal indsætte nogle ting i et bestemt excelark. Det virker sådan set godt nok det jeg har, men koden kan ikke finde ud af hvilket ark jeg har åbent og det er dybt frustrerende.

Min kode ser sådan her ud:

Sub GetExcel()
    Dim MyXL As Object
   
    Dim ExcelWasNotRunning As Boolean

On Error Resume Next 
    Set MyXL = GetObject(,\"Excel.Application\")
   
If Err.Number <> 0 Then ExcelWasNotRunning = True
    Err.Clear 
DetectExcel



    MyXL.Application.Visible = True
    MyXL.Parent.Windows(1).Visible = True
    MyXL.Parent.ActiveWorkbook.Select
    MyXL.Parent.Sheets(\"Kondi\").Select


    MyXL.Parent.Range(\"B3\").Select
    MyXL.Parent.ActiveCell.FormulaR1C1 = Fragttxt
    MyXL.Parent.Range(\"B4\").Select
    MyXL.Parent.ActiveCell.FormulaR1C1 = Faktortxt
    MyXL.Parent.Range(\"B7\").Select
    MyXL.Parent.ActiveCell.FormulaR1C1 = Afrundtxt
    MyXL.Parent.Range(\"B6\").Select
    MyXL.Parent.ActiveCell.FormulaR1C1 = Saelgerdd.Text
    MyXL.Parent.Range(\"B8\").Select
    MyXL.Parent.ActiveCell.FormulaR1C1 = Kundedd.Text
    MyXL.Parent.Range(\"B5\").Select
    MyXL.Parent.ActiveCell.FormulaR1C1 = Idag




    If ExcelWasNotRunning = True Then
        MyXL.Application.Quit
    End If

    Set MyXL = Nothing
End Sub

Sub DetectExcel()


    Const WM_USER = 1024
    Dim hWnd As Long
    hWnd = FindWindow(\"XLMAIN\", 0)
    If hWnd = 0 Then           
Exit Sub
    Else
SendMessage hWnd, WM_USER + 18, 0, 0
    End If
End Sub



Det kunne være dejligt, hvis min kode kan finde et bestemt ark, gerne finde alle ark som er åbne og derefter åbne det, der passer bedst til et givent kriteria.

Der er 60 point til den der hjælper og ekstra 60 point, hvis det er inden tirsdag kl 24!!