Surely you don't want this to work on just one cell (D5). I'll assume you
want this to work on D5:F10. The following macro will do what you want
whenever any cell in the range D5:F10 is selected. Note that this macro
must be placed in the sheet module of the sheet that holds the D5:F10 sheet
names. To access that module, right-click on the sheet tab, select View
Code, and paste this macro into that module. "X" out of the module to
return to your sheet. HTH Otto
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("D5:F10")) Is Nothing Then
Sheets(Target.Value).Visible = True
End If
End Sub