Posted to microsoft.public.excel.programming

LaDdIe

external usenet poster

Posts: 131

Macro to email image of current protected WSheet

Thank Norman,

"Norman Jones" wrote:

Hi Laddie,

Replace the suggested code to produce the single-sheet
workbook with the following version:

'=============
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

SH.Copy

With ActiveSheet.UsedRange
.Value = .Value
End With

Application.DisplayAlerts = False
With WB
.Sheets(.Sheets.Count).Delete
Application.DisplayAlerts = True
End With
End Sub
'<<=============

---
Regards,
Norman

Reply With Quote

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Posting Rules
Smilies are On [IMG] code is On HTML code is Off Trackbacks are On Pingbacks are On Refbacks are On

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
copy row 2 of any wsheet to the new crated wsheet	celio3c	Excel Worksheet Functions	6	December 21st 08 01:54 AM
Macro doesn't insert image when spreadsheet is protected	ATang	Excel Worksheet Functions	2	September 12th 06 03:14 AM
Macro to insert Current Time into protected cell	[email protected]	Excel Programming	1	July 13th 05 10:30 AM
How do I insert an image into a specific cell within a protected .	Scott Peebles	Excel Discussion (Misc queries)	1	January 7th 05 01:14 AM
Insert Image in cell B13 on Protected worksheet	Manuel	Excel Programming	1	May 26th 04 03:04 PM

All times are GMT +1. The time now is 11:44 AM.

About Us

"It's about Microsoft Excel"

Menu

About Us