Boa tarde a todos,com a ajuda de vcs criei um imputbox para selecioanr céluas e com as cel selecionadas ele envia no corpo do e-mail, porém preciso que o imputbox, selecine somente celulas visiveis. tentei a gambiarra abaixo, mas não deu certo.

Sub email1()

' Atalho do teclado: Ctrl+Shift+D

'
' Atalho do teclado: Ctrl+Shift+D
Dim SpecialCells(xlCellTypeVisible) As Range

Set SpecialCells(xlCellTypeVisible) = Application.InputBox("Selecione os atrasos ", Type:=8)

ActiveWorkbook.EnvelopeVisible = False
With ActiveSheet.MailEnvelope
.Introduction = "Bom dia Srs(ª), Segue todos os atrasos até o dia de hoje. Aguardo retorno"

.Item.To = Range("G1").Text
.Item.Cc = ""
.Item.Subject = "ATRASOS"
.Item.Send
End With

End Sub

Desde já agradeço vossa sabedoria!!