I have some code that I got from rondebruin that allows me to send a sheet by email I have a command button on each sheet firing this code that sits in a module
Sub Mail_ActiveSheet()
'Working in 97-2007
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim Sourcewb As Workbook...