WithStatement not supported correctly

[genius257]

Local $oExcel = ObjCreate("Excel.Application")
$oExcel.visible = 1
$oExcel.workbooks.add

With $oExcel.activesheet
        .cells(2, 2).value = 1
        .range("A1:B2").clear
EndWith

$oExcel.quit

result

Line 6, column 9: Expected " ", "\t", "_", or end of line but "." found.

To solve this, new alternate version of EVERY rule, supporting dot notation, without a leading variable must be implemented, like how the Javascript example file from peg/peggy has the NoIn variants to prevent the In keyword in certain contexts.