00 26/10/2017 11:08
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