Fabio, se não me engano em um dos seus exemplos você tem uma rotina chamada PreencheListView, é só adatar a mesma para sua questão.

Mas, se não encontrar a rotina que citei acima, ajustamos as instruções para preencher o LV da seguinte forma :

Primeiro apague as instruções:
'Dim Março As Worksheet
'Set Março = Worksheets("Março")

Criamos as novas variáveis :
Dim MyDate
Dim sMes

Dim sMesCorrente As Worksheet

MyDate = Date

sMes = Format(MyDate, "mmmm")

Set sMesCorrente = Worksheets(sMes)

Depois é só ajustar na rotina as linhas que referenciam o mes, onde consta Março trocamos todas pelas variáveis :
lastRow = Março.Cells(Março.Cells.Rows.Count, "a").End(xlUp).Row + 1

lastRow = sMesCorrente.Cells(sMesCorrente.Cells.Rows.Count, "a").End(xlUp).Row + 1
........
................
Set li = LVBAvancada.ListItems.Add(Text:=sMesCorrente.Cells(x, "a").Value)

Só não enviei as rotinas inteiras para você aprimorar o seu aprendizado, rsrsrs, apesar que está praticamente pronta.

[]s

Bom dia Mauro,

Ja ontem a noite eu estava estudando aquele outro projeto para ver o que poderia aproveitar dele, ate cheguei a preencherecordset, mas ainda nao entendi bem como funciona a funçao, estou estudando, hehehe, enfim, alem da tua resposta, quero aprender a outra alternativa tambem.

Obrigado por enquanto mestre Mauro.

Um grande abraço.

Mauro, fiz as alteracoes e esta tudo funcionando bem, mas quando cheguei em casa, tentei abrir em um computador da erro em tempo de execussao 9, mas em outras maquinas abre normalmente, porque???

Mauro, fiz as alteracoes e esta tudo funcionando bem, mas quando cheguei em casa, tentei abrir em um computador da erro em tempo de execussao 9, mas em outras maquinas abre normalmente, porque???

Verfique se as referencias estão corretas, se não tem nenhuma Ausente, isto acontece geralmente quando tentamos abrir um arquivo em outra maq com opções de instalações diferentes do excel.
No post que indiquei em biblioteca tem uma imagem sobre as referencias, de uma olhada.

viewtopic.php?f=21&t=3586

[]s