How to create a link, to send via email one specific page of a work book with a click??

hi,
i got a workbook that has lots of pages, now i want to send the " TOTALS" page to a spesific email with a click.

any thoughts ??

Thanks in advance

i find that code, but is not actually working as i wanted.
Function SendMail()
Dim y As String
Dim x As Integer
y = Sheets(1).Range("M1").Value
x = Sheets(1).Range("K1").Value
' Copy the sheet(1)
ThisWorkbook.Sheets(x).Copy
' Send Email
With ActiveWorkbook
.SendMail Recipients:="y", Subject:="test" & Format(Date, "dd/mmm/yy")
.Close SaveChanges:=False
End With
' Subject:=Range("Feuil1!B1").Value & " " & Range("Feuil1!A1").Value
End Function

any ideas??

any help anyone??

Have you visited this place: http://www.rondebruin.nl/

I think if you dig in here you will get a solution to what you are seeking. I did get one of my most desired solutions here.

Good luck. Cheers!!!

Originally Posted by spiwere

Have you visited this place: http://www.rondebruin.nl/

I think if you dig in here you will get a solution to what you are seeking. I did get one of my most desired solutions here.

Good luck. Cheers!!!

Cheers, works fine

Great to hear that!

Good luck!