Estou usando um código simples para copiar um range de planilha como imagem e colar em outra, o código a principio funciona. Como são varias imagem eu repliquei o mesmo e começou a aparecer o erro. Alguém poderia me ajudar? Obrigado

Código:

Sub RCO1N()
With RioClaro.Range("C10:M15")
.CopyPicture Appearance:=xlScreen, Format:=xlPicture
Application.CutCopyMode = False
Relatório.Range("C11").PasteSpecial
End With
End Sub