Runtime Error 13 -Type mismatch error

Hi,
I have added a button that is suppose to select the data from another file and copy and paste in the selected month on the userform, but I am getting the error listed in the title "Runtime Error - Type mismatch error. I don't know if the that how to correct this error. It errors out at the area highlighted in red, this is where I name each sheet. I would type the name in B1 and the sheetname will change. The move sheet code I'll also include this work up to the point where the data must be paste on the new sheet base on the selection, then it won't paste and I receive the error. My deadline is by Thursday and I must test this week, please help


Nika

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Flag Then Exit Sub
    'Call FindNewLoans
   ' If Target = Worksheets(frmFindLoanInfo.cmbMnthClaim.Value) Then
    
    If Target = Range("B1") Then
        ActiveSheet.Name = Range("B1").Value
    End If
    
End Sub

Private Sub MoveSheets()
    Dim vFileNames As String
    vFileNames = ThisWorkbook.Name

    Application.ScreenUpdating = False
    Workbooks.Open Filename:="\\C:\Users\FHCCU\Documents\MicroLoanExtractCommission.xls"    'origin:= _
                                                                                             xlWindows
    Range("a1:bp1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    'Windows("Workbook1.xlsx").Activate
    Application.Wait Now + TimeValue("00:00:05")
    'Windows("MicroLoanExtractCommission").Activate
    'Sheets("Sheet1").Select
    'Sheets("MicroLoanExtractCommission").Select

    Workbooks(vFileNames).Activate
    Range("v6:ck6").Select
    'Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks _
     :=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
    Application.CutCopyMode = False
    'Sheets("Dec_2012").Copy Before:=Workbooks("MicroLoanTest.xlsm").Sheets(1)

    ActiveWorkbook.Save
End Sub

Hi
B1 has the actual name of the sheet. The code names the sheet once it is typed in B1 in the active sheet. I have changed and is now trying to use userform where you would select the month and then it would perform the request. My problem is that when it is to go to the selected month I am getting the error. If I try to link it to the selection from the userform by using this line of code "' If Target = Worksheets(frmFindLoanInfo.cmbMnthClaim.Value) Then", then I get Runtime error 9 subscript out of range. I thought I should have connected it to the form.

I don't know how to get past this hurdle, what am I suppose to do. I am going to include the section where the frmFindLoanInfo.cmbMnthClaim.Value is dealt with. Because once I try the copy process I am getting that message. I try to attach the file but it is too large. I have remove so of the buttons and included the Move Sheet function which is where the error is and zip and uploaded. Please have a look and see if you can help. Thanks

Nika

Private Sub UserForm_Initialize()
    Dim cmbMnClmSource As Range

    Set cmbMnClmSource = Worksheets("LoanOfficers").Range("A25:A36")

    txtDate.Value = Format(Date, "MMM-dd-yyyy")

    With cmbMnthClaim
        .List = cmbMnClmSource.Cells.Value
    End With

End Sub

I am not sure what I am doing that is wrong I want to be able to paste in the selected sheet after clicking on it in the userform. I do receive the error in what was posted before but I don't know what should be the fix, that is why I included the code for the form to see if that would shed some light. Sorry for the confusion.