UserForms and Creating an Import Data Form

[TedMosby]

I have a workbook that is used as an input workbook by some users.
What I want to do is import a range from this workbook into the workbook attached. In the attached workbook on I have a Import Form where I can select the relevant workbook. I then want to be able to click import and it then goes to the source workbook and imports to the range specified.
The code below is what I have got, the problem I have is that it doesnt recognize the range of data to import.

Where have I gone worng?
I cant attach a copy of what I'm doing as this profile doesnt seem to let me attach a copy.

Private Sub cmdImport_Click()
'Code for Import button
Dim fs As Variant, ImportFile As Workbook, ChosenFile As String
    Application.ScreenUpdating = False
    With Me
        ChosenFile = .txtFilePath.Value
        If .chkSetup = False Then
            MsgBox "Please select something to import"
            Exit Sub
        End If
        Set ImportFile = getImportFile(ChosenFile, 0)
        If Not ImportFile Is Nothing Then
            Application.StatusBar = "Importing Rota..."
            If .chkSetup Then
                ImportSetup ImportFilePath:=ChosenFile
                End If
            End If
            ImportFile.Close savechanges:=False
            MsgBox "Data import complete !", vbInformation, "Import Complete"
    End With
    Application.StatusBar = False
    ThisWorkbook.Sheets("Rota").Activate
    Application.ScreenUpdating = True
    Unload Me
End Sub

Private Function getImportFile(ImportFilePath As String, FirstChoice As Integer) As Workbook
'code to get import file
Dim fs As Variant, boolOldUpdating As Boolean
    boolOldUpdating = Application.ScreenUpdating
    Application.ScreenUpdating = False
    Set fs = CreateObject("Scripting.FileSystemObject")
    If Not fs.FileExists(ImportFilePath) Then
        Exit Function
    End If
' Open file and check that the Engineer Sheet is inside
    Application.EnableEvents = False
    Set getImportFile = Workbooks.Open(ImportFilePath, updateLinks:=False, ReadOnly:=True)
    Application.EnableEvents = True
    Set getImportFile = getImportFile(Mid(ImportFilePath, 1, InStrRev(ImportFilePath, "\")) & "HospAtHome\StaffRota.xls", 1)
                If getImportFile Is Nothing Then MsgBox "Unable to find the Staff Rota.xls file for this Rota Import."
                        If FirstChoice = 0 Then
                            getImportFile.Close savechanges:=False
                            MsgBox "Please choose the Rota Import file", vbExclamation, "Unable to open file."
                            Set getImportFile = Nothing
                        End If
        Application.ScreenUpdating = boolOldUpdating
End Function

Private Sub ImportSetup(Optional ImportFilePath As String, Optional ImportFile As Workbook)
    If ImportFile Is Nothing Then
        Application.EnableEvents = False
        Set ImportFile = Application.Workbooks.Open(Filename:=ImportFilePath, ReadOnly:=True)
        Application.EnableEvents = True
    End If
        With ImportFile.Sheets("Rota")
            Application.StatusBar = "Importing setup details...Importing new data"
            .Range("B6:E303").Copy Destination:=ThisWorkbook.Sheets("Rota").Range("B5")
        End With
        ImportFile.Close savechanges:=False
        Application.CutCopyMode = False
End Sub