Hi Laddie

To produce a single sheet workbook containing a static copy of the original
worksheet, try something like:

'=============
Public Sub Tester()
Dim WB As Workbook
Dim SH As Worksheet

Set WB = ThisWorkbook
With WB
Set SH = .Sheets("Sheet3") '<<==== CHANGE
SH.Copy After:=.Sheets(.Sheets.Count)
End With

With SH.UsedRange
.Value = .Value
End With
SH.Copy
End Sub
'<<=============

To email the new workbook, see Ron de Bruin's
extensive range of sample code at:

Example Code for sending mail from Excel
http://www.rondebruin.nl/sendmail.htm



---
Regards,
Norman


"LaDdIe" wrote in message
...
Hi,

Is it possible & how.

I would like to send a copy of the current single WS by email using a
macro,
the sheet is protected, and the receiver only needs to have a image
meaning
non fuctioning WSheet, if I send a fuctioning WS the receiver cant see all
of
it due to some cells being linked to others in the Wbook.

any ideas welcome

Repectx

Laddie