Excel Macro to import workbook with 2 tabs

[mkseto]

I have been using the below macro that prompts the user to select a workbook, copies the 1st tab into a new worksheet and names the new tab "New1".
Can someone help me to modify this code to copy the 2nd tab of the same workbook selected by the user, copy into another new tab called "New2"?

Sub ImportData()
Dim ws As Worksheet
Dim filter As String
Dim targetWorkbook As Workbook, wb As Workbook
Dim Ret As Variant
Set targetWorkbook = Application.ActiveWorkbook
filter = "Text files (*.xlsx),*.xlsx"
Caption = "Please Select an input file "
Ret = Application.GetOpenFilename(filter, , Caption)
If Ret = False Then Exit Sub
Set wb = Workbooks.Open(Ret)
wb.Sheets(1).Move After:=targetWorkbook.Sheets(targetWorkbook.Sheets.Count)
ActiveSheet.Name = "New1"
End Sub

 

[rlv01]

Perhaps this.

Sub ImportData()
    Dim ws As Worksheet
    Dim filter As String
    Dim targetWorkbook As Workbook, wb As Workbook
    Dim Ret As Variant
    Dim Caption As String
    Set targetWorkbook = Application.ActiveWorkbook
    filter = "Text files (*.xlsx),*.xlsx"
    Caption = "Please Select an input file "
    Ret = Application.GetOpenFilename(filter, , Caption)
    If Ret = False Then Exit Sub
    Set wb = Workbooks.Open(Ret)
    wb.Sheets(1).Move After:=targetWorkbook.Sheets(targetWorkbook.Sheets.Count)
    ActiveSheet.Name = "New1"
    wb.Sheets(1).Move After:=targetWorkbook.Sheets(targetWorkbook.Sheets.Count)
    ActiveSheet.Name = "New2"
    On Error Resume Next
    wb.Close SaveChanges:=False
End Sub

Please try to use code tags when posting code:

How to Post Your VBA Code

Post your VBA code.

www.mrexcel.com

 

[mkseto]

Perfect, thanks a million!!!