Boa Tarde.

Gostaria de saber qual solução eu poderia estar dando neste erro.

Ele da erro de compilação no formulario frmlogin.

Codigo do formulario frmlogin :

Private Sub cmdCancelar_Click()
    Application.DisplayAlerts = False
    ActiveWorkbook.Save
    Application.Quit
End Sub


Private Sub cmdentrar_Click()
         If txtlogin = "" Then
            MsgBox "Digite o nome do usuário !"
            Exit Sub
            txtlogin.SetFocus
        Else
          If txtSenha = "" Then
                MsgBox "Digite a senha do usuário !"
                Exit Sub
                txtSenha.SetFocus
          End If
        End If

        col = 1
        lin = 2
        While (Plan8.Cells(lin, col) <> txtlogin)
            lin = lin + 1
            If lin > 100 Then
                MsgBox "Usuário não esta cadastrado"
                Exit Sub
            End If
        Wend

        Dim senha As String
        col = 2
        senha = Plan8.Cells(lin, col).Value

        If txtSenha <> senha Then
            MsgBox "A senha não confere !!"
            Exit Sub
        Else
            MsgBox "Seja Bem Vindo " & txtlogin
            lin = 2
            col = 1
            While (Plan8.Cells(lin, col) <> "")
                lin = lin + 1
            Wend
            Plan9.Cells(lin, 1) = txtlogin.Value
            Plan9.Cells(lin, 2) = txtSenha.Value
            Plan9.Cells(lin, 3) = Date
            Plan1.Visible = xlSheetVisible
            Sheets("Principal").Activate
            ActiveWindow.DisplayWorkbookTabs = False
            Hide
        End If
End Sub
Private Sub UserForm_Terminate()
    Application.DisplayAlerts = False
    ActiveWorkbook.Save
    Application.Quit
End Sub

Esse erro da quando meu amigo vai abrir no pc dele com o excel 2007 e se eu salvar na versão 2003 tbm da o mesmo erro.