Tenho uma planilha do Excel carregada com um conjunto de dados dinâmico de resultados. Preciso adicionar uma lista suspensa SIM / NÃO no final de cada linha, depois que todos os dados forem carregados. Eu tenho que fazer isso dinamicamente, pois não sei o tamanho do conjunto de resultados de antemão. O código a seguir gera um 'erro definido pelo aplicativo ou definido pelo objeto':

Dim firstRow As Integer
Dim lastRow As Integer
Dim I As Integer
Dim VOptions As String
VOptions = "1. Yes, 2. No"

firstRow = GetResultRowStart.row + 1
lastRow = GetResultRowStart.End(xlDown).row

For I = firstRow To lastRow

Range("AO" & firstRow & ":AO" & lastRow).Select

With Selection.Validation
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
    xlBetween, Formula1:=VOptions
    .IgnoreBlank = True
    .InCellDropdown = True
    .InputTitle = "Options"
    .ErrorTitle = ""
    .InputMessage = "Click yes or no"
    .errorMessage = ""
    .ShowInput = True
    .ShowError = True
End With


 Next I

O método GetResultRowStart fornece a linha que inicia os dados de resultado preenchidos na planilha. Também usei esse método em outros lugares de alguma outra parte do código e funciona perfeitamente. A depuração usando caixas de mensagens sugeriu que o erro fosse lançado na instrução Range (..). Select.

Alguma idéia sobre a causa desse err