How to enter data to a specific worksheet based on multipage selection

Hello All,

I have a userform that I'm working on where I want to be able to "send" data entered in textboxes to a certain worksheet based on what page is selected. I have the following code (which is not working):

Private Sub subcmd_Click()

Dim c As Range
Dim month As String
Dim year As String

month = Me.monthcb.Text
year = Me.yrcb.Text


Select Case worksheetchoose
    Case 0, UserForm2.MultiPage1.MultiPage3.multipage9.Pages(0) = True
        Sheets("DUN Earned").Select
            For Each c In Range("A:A")
                If c.Value = month And c.Offset(0, 1).Value = year Then
                    c.Offset(0, 2).Value = Me.dunimerndtb.Value
                    c.Offset(0, 3).Value = Me.dunctserndtb.Value
                    c.Offset(0, 4).Value = Me.dune70erndtb.Value
                    c.Offset(0, 5).Value = Me.duncorvetteerndtb.Value
                    c.Offset(0, 6).Value = Me.dunf25erndtb.Value
                    c.Offset(0, 7).Value = Me.dunxtserndtb.Value
                    c.Offset(0, 8).Value = Me.dunf15erndtb.Value
                    c.Offset(0, 9).Value = Me.dunctsngerndtb.Value
                 End If
            Next

    Case 1, UserForm2.MultiPage1.MultiPage3.multipage9.Pages(1) = True
       Sheets("DUN Clocked").Select
            For Each c In Range("A:A")
                If c.Value = month And c.Offset(0, 1).Value = year Then
                    c.Offset(0, 2).Value = Me.dunimclkdtb.Value
                    c.Offset(0, 3).Value = Me.dunctsclkdtb.Value
                    c.Offset(0, 4).Value = Me.dune70clkdtb.Value
                    c.Offset(0, 5).Value = Me.duncorvetteerndtb.Value
                    c.Offset(0, 6).Value = Me.dunf25erndtb.Value
                    c.Offset(0, 7).Value = Me.dunxtserndtb.Value
                    c.Offset(0, 8).Value = Me.dunf15erndtb.Value
                    c.Offset(0, 9).Value = Me.dunctsngerndtb.Value
                 End If
            Next
'    Case 2
'        ws = Worksheets("SLI Earned")
'
'    Case 3
'        ws = Worksheets("SLI Clocked")
        
End Select

End Sub

Additionally this code runs very slow, any suggestions for how to speed this up would be appreciated.

Thanks in advance,
Brad