copying a data in a excel sheet (cell range) and pasting the data in microsoft outlook new mail

[rvkcools]

Dim Msg As String
Msg = Sheets("sheet3").Range("a1:f18").Select
Selection.Copy
.Body = Msg.PasteSpecial


error shows invalid qualifier


please tell me the correct way to define