a "." seems to be missing in your code. Try:
If WorksheetFunction.CountIf(.Range("E2:E10000"), "ALLA") = 0 Then
the '.' is required to connect the Range "E2:E10000" to "ALL" worksheet.