ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Copying sheets to new workbook, merged cell issue? (https://www.excelbanter.com/excel-programming/415243-copying-sheets-new-workbook-merged-cell-issue.html)

Simon[_2_]

Copying sheets to new workbook, merged cell issue?
 
‘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.


All times are GMT +1. The time now is 11:17 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com