Microsoft Office Forums - View Single Post - Mail every worksheet with address in A1

Thread: Mail every worksheet with address in A1

View Single Post

Old

05-23-2018, 08:51 AM

Roger Govier Roger Govier is offline

Roger Govier is offline

Roger Govier uses Windows 10

Windows 10 Roger Govier uses Office 2016

Roger Govier uses Office 2016

Office 2016

Novice

Join Date: Oct 2017

Location: Abergavenny, Wales, UK

Posts: 13

Roger Govier is on a distinguished road

Default

Hi

In Ron's code, immediately after
sh.copy
and before
Set wb = ActiveWorkbook

insert the following 3 lines of code and that should achieve what you want

Code:

    ActiveSheet.UsedRange.Copy
    ActiveSheet.UsedRange.PasteSpecial Paste:=xlPasteValuesAndNumberFormats
    ActiveSheet.UsedRange.PasteSpecial Paste:=xlPasteFormats

Reply With Quote