I'm trying to move certain sheets to a selected file and getting a "..out of
range" error.
Help?

Sub SendData()

Dim wb As String
wb = ThisWorkbook.Activate

Dim SendDataFname As String

SendDataFname = Application.SendOpenFilename("Excel files (*.xls),
*.xls")

Workbooks.Open SendDataFname

Sheets(Array("sheet2", "sheet3", "sheet4")).Move _
After:=Workbooks(wb).Sheets("sheet1")
Windows(SendDataFname).Activate
ActiveWorkbook.Save
ActiveWindow.Close

ThisWorkbook.Activate

End Sub