To set this go to Project Window and double click at ThisWorkbook. Copy below code and change the form name as you want eg. frmReadDir.Show

Private Sub Workbook_Open()
    On Error GoTo error_message
        frmReadDir.Show
    Exit Sub
error_message:
    response = MsgBox("Error " & Err.Number & " " & Err.Description, vbExclamation)
    End
End Sub
 
No comments:
Post a Comment
Please add if your have better information.