Show worksheets independently using macro assigned buttons

[Delvestio]

Hi all, i'm brand new at this and would like to politely ask you wonderful people if you could spare the time to help me with a problem:

I have one WorkBook.
This WorkBook contains 14 WorkSheets and Summary Sheet.
The Summary Sheet is a constant and always shown.
The WorkSheets are all hidden by default.
Within the Summary Sheet there are cells which contain the names of the WorkSheets, as follows:

Buildings
Contents
Jewellery
Jewellery (Specified)
Art & Antiques
Alternative Accommodation
Preventative Measures
Electricity Calcs

I need to have a button assigned to each cell that when clicked Shows the WorkSheet.

Help me.

 

[dmt32]

I need it to show any and all tabs that has been clicked.

Hi
Try updated code & see if now does what you want

Sub ShowSheet(ByVal SheetName As String)
    
    Application.ScreenUpdating = False
    If Len(SheetName) > 0 Then
        If Evaluate("ISREF('" & SheetName & "'!A1)") Then
            Worksheets(SheetName).Visible = xlSheetVisible
        End If
    End If
    Application.ScreenUpdating = True
    
End Sub

Dave

 

[Delvestio]

Hi
Try updated code & see if now does what you want

Sub ShowSheet(ByVal SheetName As String)
   
    Application.ScreenUpdating = False
    If Len(SheetName) > 0 Then
        If Evaluate("ISREF('" & SheetName & "'!A1)") Then
            Worksheets(SheetName).Visible = xlSheetVisible
        End If
    End If
    Application.ScreenUpdating = True
   
End Sub

Dave

You sir are a genius, gentleman and scholar! I cannot thank you enough.

 

[dmt32]

You sir are a genius, gentleman and scholar! I cannot thank you enough.

Most welcome & your kind words very much appreciated
Glad issue resolved.

Dave