Está apresentando o erro de compilação: Separador de lista ou) Não consegui identificar o erro
'ListView1.ListItems.Clear
'Sheets("Banco").Select
'lin = 2
'Do Until Sheets("banco").Cells(1in,4)=""
'Set li = ListView1.ListItems.Add(Text:=Sheets("banco").Cells(1in,4).value)