Moving worksheets into another workbook

Hi there,

I'm having a ton of trouble trying to to move the tabs from one workbook into another existing file. Both have .xlsx extensions. I've already tried the following:

1. Removed all external links and names within the Name Managers. Didn't make a difference.
2. Moved the tabs from each file into separate new workbooks, then tried to merge the two new files from there. Doesn't work.
2. Saved both files with .xls extensions, then re-opened and successfully merged the tabs. The problem is that all formatting has been stripped out because .xls doesn't support a lot of the heavy formatting capabilities of .xlsx files.

So with that, I'm out of ideas and desperately trying to avoid the need to recreate both files, which are very large and complicated (read as: I'll likely lash out irrationally if recreating the files is the only solution). Any help would be very much appreciated.

Thanks,
Daniel

Hi Andy,

Thank you so much for the response. I apologize for the elementary-level question, but would you help me understand if I need to change anything within this code to make it work for my purposes? For example, do I need to change the reference to "C:\Users\Serenity\Desktop\USB Ram\Book1.xlsm"? I created a file called Book1 on my desktop and changed this line to match a file-path to my desktop, but that didn't seem to work. Again, I'm so sorry for the basic VBA question...I have and will continue to study this code you provided to make it work.

Thanks,
Daniel

Dim SourceBook As Excel.Workbook
Dim Archivebook As Excel.Workbook
Sub OpenWb()
Set SourceBook = Workbooks(ThisWorkbook.Name)
If IsWbOpen("Book1.xlsm") = True Then
GoTo Skip
End If
Application.DisplayAlerts = False
Set Archivebook = Workbooks.Open("C:\Users\dant\Desktop\Book1.xlsm")
Range("A1").Select
SourceBook.Activate
Range("A1").Select
Sheet21.Move Before:=Archivebook.Sheets(1)
SourceBook.Activate
Range("A1").Select
Application.DisplayAlerts = True
Skip:
End Sub
Function IsWbOpen(wbName As String) As Boolean
Dim i As Long
For i = Workbooks.Count To 1 Step -1
If Workbooks(i).Name = wbName Then
Set Archivebook = Workbooks.Item(i)
Exit For
End If
IsWbOpen = False
Next
End Function

Please Login or Register  to view this content.