I found this code and would like to alter it to email a pic of the selected range in excel.

[VBA]Fname = ThisWorkbook.Path & Application.PathSeparator & _
currentchart.name & ".gif" _
currentchart.Export Filename:=Fname, FilterName:="GIF"[/VBA]

Can someone please help me?