erro de operação com var:variant;

Boa tarde,

Estou fazendo uma rotina de importação de uma planilha excel para o Access.

Na busca pelo nome da célula para fazer a validação e importar, apresenta o seguinte erro:

Class EvariantInvalidOpError with message "Invalid variant operation"

código:
if tblCenarios.locate('Nome_Cenario',plan1.cell[1,1],[])=true then
while not eof do
begin
FieldByName('Nome_Cenario').asstring:=plan1.cells[i+1,1];

Obs: var Plan1:variant;

Agradeço atenção