hai Dya, script pada sebuah modul:
Sub PilihSheet()
Dim sSht As String
sSht = Range("e4").Value
Sheets(sSht).Activate
End Sub
script pada sheet Menu dengan even Change:
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Address = Range("e4").Address Then
Call PilihSheet
End If
End With
End Sub
Wassalam,
-Miss Jan Raisin-
Pada 29 Januari 2014 16.19, <[email protected]> menulis:
>
>
> terlampir sample nya
>
>
