Focus Control

[sassriverrat]

Good Evening,

I seem to be having a workbook that error's out if I have other, non-vba workbooks open. The workbook initially opens up and hides the workbook itself (a userform shows) as designed. However, when I click a button in the userform, I get "run-time erorr '-2147352565 (8002000b)' Can't move focus ot the control because it is invisible, not enabled, or of a type that does not accept the focus."
I was hoping someone had some insight on this. Here is the code that runs when the button is pressed.

Thanks

Private Sub CommandButton3_Click()
'On Error GoTo Helper
Dim name As String
name = Sheets("Developer").Range("N4")
TryAgain:
Pass = InputBox("Enter Password", "The Coding Sheets")
If Pass = "" Then Exit Sub
If Pass = CStr(Worksheets("Developer").Range("B23").Value) Then
    Sheets("Developer").Visible = True
    Sheets("Notes").Visible = True
    Sheets("Ports").Visible = True
    Sheets("Developer").Select
    Application.Visible = True
Else
    MsgBox "Password incorrect, Please try again", vbCritical, name
    GoTo TryAgain
End If
Unload Me
'Error Clearing Code
Exit Sub
Helper:
    resp = MsgBox("We're sorry to see you've encountered an error." & vbCrLf & vbCrLf & "To proceed, we recommend you contact the Developer " & _
    "with error codes [1066] and " & "[" & Err.Number & "-" & Err.Description & "]." & vbCrLf & vbCrLf & "To attempt to patch your problem at least " & _
    "temporarily, we recommend you click [Yes] to see help directions. Would you like to continue?", vbYesNoCancel, name)
        If resp = vbYes Then
            Call Error_Handle(sprocname, Err.Number, Err.Description)
        ElseIf resp = vbNo Then
            Exit Sub
        ElseIf resp = vbCancel Then
            Exit Sub
        End If
End Sub

 

[EXCEL MAX]

Hello Sassriverrat,
I don't know what may be cause error but...
If you have more then one workbook opened simultany
try to refer in code to the right workbook.

 

[sassriverrat]

How would I go about doing that other than through the name of the workbook itself? The workbook with code referenced above has a dynamic name...meaning it changes depending on use. The Template is one name, the active workbook is another, and the archived is a third (and archived is named based on date and other pertinent information...and all of that changes through code).