Hi All,

Im currently after some help, I need this code to run in which it does just fine to hide selected worksheets, But at the end of this i need it to also save the workbook,

Can someone please help with a suggestion or code to assist,

Thankyou

Private Sub OKButton_Click()
Dim Notification As String
Dim i3 As Integer
Dim i As Integer
If ListBox1.ListCount = 0 Then
Notification = MsgBox("At least one sheet must remain visible.", vbOKOnly, "Unexpected Result")
Exit Sub
End If