please check the code in workbook LeasingTest 2.xls

i found this code, perhaps it which caused error
Private Sub OpenUserFormButton_Click()
frmFranchising.Show
End Sub