dobbeltklik og ENTER vba

Prøv at se: https://msdn.microsoft.com/en-us/library/office/ff821075.aspx
om det kan anvendes.

Min kode ser således ud:

Sub indsætformel()

Dim ws As Worksheet


For Each ws In Worksheets

If ws.Name <> "hovedark" And ws.Name <> "udskrift" Then ws.Range("AA19").Formula = "=sum.hvis(B3:B300,10,I3:I300)"

Application.Wait (Now() + TimeValue("00:00:01"))

Range("AA19").Application.SendKeys (ENTER)


Next ws


End Sub

Den skal gå ind og vælge cellen, som man gør når man dobbeltklikker på den, og derefter trykke enter, og så videre til næste ark. Funktionen ENTER alene ser ikke ud til at gøre det. Hvad mangler jeg?

Sub indsætformel()
    Dim ws As Worksheet
    For Each ws In Worksheets
        If ws.Name <> "hovedark" And ws.Name <> "udskrift" Then ws.Range("AA19").FormulaLocal = "=sum.hvis(B3:B300;10;I3:I300)"
    Next ws
End Sub

That does the trick

Tak for hjælpen :)