subscript out of range when I reference a valid UserForm

[Roland Hoelscher]

Sometimes when I reference a UserForm in my VBA code I get error message "Subscript Out of range". The UserForm which is referenced clearly exists; so I don't understand what is wrong with my code.
Here is a code snippet where I get the error "Subscript out of range". When I click on "Debug" the error points to the code line at the end "frmSelectFolder.show".
Can you help me understand what I'm doing wrong.
Thank you

Sub StartSummaryFile()
'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
'=== Module Name : ===
'=== Date Created : ===
'=== Author : Roland Hoelscher ===
'=== Summary Description : ===
'<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
'<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
'
Application.ScreenUpdating = False
'
strVbaWorkbookName = Worksheets("SETTINGS").Cells(4, 3).Value
'
strDetailedLoggingYesNo = ThisWorkbook.Worksheets("SETTINGS").Cells(6, 3).Value
strSummaryFileName = ThisWorkbook.Worksheets("SETTINGS").Cells(8, 3).Value
strSummaryWorkbookName = Left(strSummaryFileName, Len(strSummaryFileName) - 5)
strDefaultFolder = ThisWorkbook.Worksheets("SETTINGS").Cells(7, 3).Value
'
lngTotalNumberOfRecords = 0
strModuleRef = "Create Summary File"
'
strLogMessageText = "Program started (" & Application.UserName & ")"
strLogMessageType = "N"
WriteLogRecord
'
frmProgress.Show vbModeless
frmProgress.lblProgress.Width = 1
frmProgress.lblProgress.Visible = True
frmProgress.Repaint
'
frmSelectFolder.Show
'
End Sub

 

[DanteAmor]

The UserForm which is referenced clearly exists

When the userform does not exist, the message is similar to: "undefined variable"

The problem may be in the code you have in the usrform, when you open the usrform, you probably have code in the initialize or activate events, and that is where you possibly have a problem.
Run your code in debug mode, pressing F8, to enter the userform and see what the problem is.
Also put your userform code here to review it.

 

[Roland Hoelscher]

Hello Dante and thank you very much. I've copied the code from the UserForm initialize routine below; but you've solved my problem. There was an instruction in that initialize routine which caused the abend. The wording "Subscript out of range" was confusing to me. But I fixed the line of code which caused the error message and all is well.
Thanks again

Private Sub UserForm_initialize()
' set up SETTINGS variables
strDetailedLoggingYesNo = ThisWorkbook.Worksheets("SETTINGS").Cells(6, 3).Value
strSummaryFileName = ThisWorkbook.Worksheets("SETTINGS").Cells(8, 3).Value
strSummaryWorkbookName = Left(strSummaryFileName, Len(strSummaryFileName) - 5)
'
' initialize public variables
intNotificationMessageCount = 0
intWarningMessageCount = 0
intErrorMessageCount = 0
'
End Sub