Aqui imprimiu corretamente. Nao reproduziu o erro. Encontrei o erro e a planilha que anexei já estava corrigida. Obrigado MPrudencio

Maravilha. Tinha esquecido de mudar a outra instrução. O HSE (hosp. dos servidores de PE), agradece. Abrçs.

Tudo bem Mauro, entendi. Mas como definir eDietas ? Como Range tá dando o mesmo erro "tipos incompatíveis". Grato

Estou te mandando a(s) planilhas e o VBA. Testa e veja o que acontece. Abrçs

Veja o que defini: Dim eDietas As Range depois: Set ws3 = Sheets("CONTAGEM DIARIA") Set eDietas = Worksheets(ws3).Range("b4:c53")...