Excel VBA 2010 - Copy to WB, RTE 1004 - That command cannot be used on multiple selections

Hi Norie,

yes - you are right. I have appologized to Holger.
I have tried your code. I get error her;

Sub MailAnalysisSub()

'---------------------------------------
'Mail the analysis to the end intepreter
'Area=PrintArea_PaymentRisk
'---------------------------------------

Application.ScreenUpdating = False

Dim TempWorkbook As Workbook
Dim Tempsht As Worksheet

RightHereRightNow = ActiveCell.Address
RightHereRightNow_Sheet = ActiveSheet.Name

'----------
'Create new Workbook
Set TempWorkbook = Workbooks.Add
FolderPath = Application.ThisWorkbook.Path & "\14.ShipReport_Controller" & "\14.ShipReport_SentReportingPackages\"
Application.DisplayAlerts = False

TempWorkbook.Activate
Set Tempsht = Worksheets.Add
Tempsht1 = ActiveSheet.Name
ActiveSheet.Name = "Tempsht1"

'------------
ThisWorkbook.Worksheets("Input_Risk").Activate
ThisWorkbook.Worksheets("Input_Risk").Unprotect

Range("PrintArea_NotPaymentRisk").Copy

With Tempsht.Cells(1, 1)
    .PasteSpecial Paste:=xlPasteValues
    .PasteSpecial Paste:=xlPasteFormats
End With

'Range("PrintArea_NotPaymentRisk").Select
'
'Selection.Copy
'
'TempWorkbook.Activate
'Sheets("Tempsht1").Activate
'Cells(1, 1).Activate
'
'Selection.PasteSpecial Paste:=xlPasteValues
'Selection.PasteSpecial Paste:=xlPasteFormats

Excel error: Run-time errot '1004':
PasteSpecial method of Range class failed.


wbr
Ben