Hi,
Try this, entered onto the VBA sheet window - the same sheet as the D5
thingy is on.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target.Address = Range("D5").Address Then
Sheets(Range("D5").Value).Visible = True
End If
End Sub

Regards - Dave.