Sub macro_to_go_to_main()
If ActiveSheet.Name <> "Main" Then
    ActiveSheet.Visible = False
    Worksheets("main").Activate
  End If
End Sub