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.