.List(linhalistbox, 0) = Planilha3.Cells(linha, 1)
.List(linhalistbox, 1) = Planilha3.Cells(linha, 2)
.List(linhalistbox, 2) = Planilha3.Cells(linha, 3)
.List(linhalistbox, 3) = Planilha3.Cells(linha, 4)
.List(linhalistbox, 4) = Planilha3.Cells(linha, 5)
.List(linhalistbox, 5) = Planilha3.Cells(linha, 6)
.List(linhalistbox, 6) = Planilha3.Cells(linha, 7)
.List(linhalistbox, 7) = Planilha3.Cells(linha, 8)
.List(linhalistbox, 8) = Planilha3.Cells(linha, 9)

.RowSource = "Planilha3!A1:H1"