VBA Code Breaks During Runtime But Not In Debug Mode

[xander1981]

Thanks Excel Fox but that didnt work. Here is my code, It breaks on line "ActiveSheet.Range("A10000").End(xlUp).Offset(1).S elect"

Application.ScreenUpdating = False
Application.DisplayAlerts = False
If Me.oComment.Value = "" Then
MsgBox ("Please write your comment or cancel"), vbOKOnly, "Missing info"
Exit Sub
End If

Dim oAlexJ As String, AlexTwo As String
oAlexJ = Pass"
oAlexTwo = "word"
Workbooks.Open FileName:="c:\Felixstowe\Employee Opinion Database.xlsx", ReadOnly:=False, Password:=oAlexJ & AlexTwo, ignorereadonlyrecommended:=True
ActiveSheet.Range("A10000").End(xlUp).Offset(1).Select
Selection.Value = Me.oComment.Value
ActiveCell.Offset(0, 1).Value = Date
Workbooks("Employee Opinion Database.xlsx").Save
Workbooks("Employee Opinion Database.xlsx").Close
Unload Opinion
Workbooks("Employee Opinion Send.xlsm").Close
 
Application.ScreenUpdating = True
Application.DisplayAlerts = False