Private Sub Workbook_Activate()
NomeForm.Show
End Sub