Automation error or Error 462 in VBA code

Question

I get an error "-2147417848 (80010108) run time error with the following code":

sub import()

Application.EnableEvents = False
Application.DisplayAl