View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Simon[_2_] Simon[_2_] is offline
external usenet poster
 
Posts: 89
Default Error 1004, pasting merged cells

‘Alpha is a tab in another workbook (WBSEL) which is copied and
pasted
in to a newly added workbook (via VBA). However this is an 1004
error
relating to a merged cell (A1:J1).

For some reason it won’t copy due to the merged cell? Why is this,
the whole sheet is copied, why is it dependent on a cell?


With WBAlpha
.SaveAs Filename:="N:\mis\" & MyRange.Value & MyRange2.Value
&
"\" & "Alpha Figures" & " " & MyRange.Value & MyRange2.Value & ".xls"
End With


WBSEL.Activate
Sheets("Alpha").Select
Sheets("Alpha").Copy Befo=WBAlpha.Sheets(1)
WBAlpha.Activate
Sheets("Alpha").Paste
Sheets("Sheet1").Select
ActiveWindow.SelectedSheets.Delete
Sheets("Sheet2").Select
ActiveWindow.SelectedSheets.Delete
Sheets("Sheet3").Select
ActiveWindow.SelectedSheets.Delete


With WBAlpha
.SendMail Recipients:=Array(RngEmailTest2.Value, RngEmailTest.Value)
.Close SaveChanges:=True


Thanks, Simon (the MyRange.Value occurances are merely a date
stamping for the previous month.