Как установить диапазон с видимыми ячейками только в VBA?

Question

У меня есть функция, которая устанавливает электронную почту с выбранным диапазоном в качестве тела письма.Однако, несмотря на то, что выбранный диапазон имеет скрытые строки, скопированный диапазон содержит все строки.Есть ли способ скопировать только видимое?Я пытался использовать SpecialCells (xltypeVisibleOnly), но безуспешно.Любые предложения?

Sub Button6_Click()

Dim dt As Date
Dim rBody(0) As Range
Dim b As Boolean

dt = [RefDate]

With shtDash
    Set rBody(0) = .Range("Print_Mail")
End With

b = SendMail(rBody, "subject" & dt, [to_mail], [cc_mail])

If Not b Then
    MsgBox "Error running mail macro. Please debug."
End If

End Sub

РЕДАКТИРОВАТЬ: я пытался установить .Range ("Print_Mail"). SpecialCells (xlCellTypeVisible), но это не работает.б возвращает ложь.поясним, что rBody должен быть диапазоном из-за способа кодирования функции SendMail.