Olá!! Funcionou! Só precisei trocar a função Chr de lugar, pois utilizo a variável mes para outros filtros. Ficou assim: Dim mes As String mes = P...