Email worksheet

[MOORED]

Hi,


I have been using the code below to email a worksheet as an attachment which is great, but I now want to only email columns A to G, I would also like it to email to what ever email address is in cell H1.

if anyone could help I would be very grateful

__________________________________________________________________________________
Sub SendIt()
Application.Dialogs(xlDialogSendMail).Show arg1:="ask@mrexcel.com", _
arg2:="subject....."
End Sub
_________________________________________________________________________________