Vba to add an existing Sheet to an Open Workbook

Big Lar · Jun 10, 2017

Can I get some code assistance? When adding an existing worksheet to my Workbook, changing the version of my project during development causes an obvious error when running this routine.

Can the code be changed to be not so selective? Since the Workbook is already open, do I really need to specify where to move the Sheet? Suggestions are appreciated.

Rich (BB code):

  Private Sub CommandButton1_Click()
  Dim Filter As String, Title As String, oneDriveFolder As String
  Dim FilterIndex As Integer
  Dim Filename As Variant
   
  Filter = "Excel Files (*.xlsx),*.xlsx,"
    FilterIndex = 3
   
  Title = "Select a File to Open"
   
  oneDriveFolder = Environ("UserProfile") & "\OneDrive\The R***\Data"
   
  ChDrive Left$(oneDriveFolder, 1)
  ChDir oneDriveFolder
   
  With Application
      Filename = .GetOpenFilename(Filter, FilterIndex, Title)
      ChDrive (Left(.DefaultFilePath, 1))
      ChDir (.DefaultFilePath)
  End With
   
  If Filename = False Then
      MsgBox "No file was selected."
      Exit Sub
  End If
   
  Workbooks.Open Filename
   
  Sheets("PLAYERS").Select
      Sheets("PLAYERS").Move Before:=Workbooks("SPRO 2017 v1.0.4.1.xlsm").Sheets(1)

Big Lar · Jun 10, 2017

I've solved this by changing the code

Rich (BB code):

'From:
    'Sheets("PLAYERS").Move Before:=Workbooks("SPRO 2017 v1.0.4.1.xlsm").Sheets(1)
'To:
    Sheets("PLAYERS").Move Before:=Workbooks(1).Sheets(1)

As long as my project is the only Workbook open, I believe this will solve my issue.

Thanks for looking.

Vba to add an existing Sheet to an Open Workbook

Big Lar

Well-known Member

Excel Facts

Big Lar

Well-known Member

Similar threads

Forum statistics

Share this page

Vba to add an existing Sheet to an Open Workbook

Big Lar

Well-known Member

Excel Facts

Big Lar

Well-known Member

Similar threads

Forum statistics

Share this page

We've detected that you are using an adblocker.

Which adblocker are you using?

Disable AdBlock

Disable AdBlock Plus

Disable uBlock Origin

Disable uBlock