Ciao Stefano e perdona il ritardo di questa risposta.
Ti allego file dove ho inserito le macro che vedi sotto sperando di aver capito la tua esigenza.
Questa (che viene eseguita all'apertura del file) nasconde tutti i (fogli ad eccezione di "MENU") e "azzera" i tre OptionButton
vb
Private Sub Workbook_Open()
Dim i As Integer
Dim obtOptionbutton As OLEObject
Dim osh As Worksheet
Set osh = ThisWorkbook.Worksheets(1)
For Each obtOptionbutton In osh.OLEObjects
If TypeName(obtOptionbutton.Object) = "OptionButton" Then
obtOptionbutton.Object = False
End If
Next
For i = 2 To Sheets.Count
Sheets(i).Visible = False
Next i
End Sub
Le tre successive al clic su ogni OptionButton scoprono i fogli pertinenti
Questa per l'OptionButton1
vb
Private Sub OptionButton1_Click()
Dim i As Integer
Application.ScreenUpdating = False
For i = 2 To Sheets.Count
Sheets(i).Visible = False
Next i
Sheets("Terreni").Visible = True
Sheets("Ausiliari").Visible = True
Sheets("Offerta").Visible = True
Application.ScreenUpdating = True
End Sub
Questa per l'OptionButton2
vb
Private Sub OptionButton2_Click()
Dim i As Integer
Application.ScreenUpdating = False
For i = 2 To Sheets.Count
Sheets(i).Visible = False
Next i
Sheets("Terreni").Visible = True
Sheets("Ausiliari").Visible = True
Sheets("STAMPAOFFERTA").Visible = True
Application.ScreenUpdating = True
End Sub
E questa per l'OptionButton3
vb
Private Sub OptionButton3_Click()
Dim i As Integer
Application.ScreenUpdating = False
For i = 2 To Sheets.Count
Sheets(i).Visible = False
Next i
Sheets("Terreni").Visible = True
Sheets("Ausiliari").Visible = True
Sheets("DEF").Visible = True
Application.ScreenUpdating = True
End Sub
Fai sapere.
Alfredo