Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Private Sub Worksheet_Change(ByVal Target As Range)
Sheets(Target.Value).Activate
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
' Assume the selection cell is a named range "MySelectCell
' Test for changed cell in the selection cell
If Target.Address = Sheets("Sheet1").Range("MySelectCell").Address Then
Select Case Target(1, 1)
Case "dataforsheet2": Sheets("Sheet2").Activate
Case "dataforsheet3": Sheets("Sheet3").Activate
Case "dataforsheet4": Sheets("Sheet4").Activate
End Select
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
' Assume the selection cell is a named range "MySelectCell"
if not intersect(target,[MySelectCell]) is nothing then
Sheets(Target.Value).Activate
end if
End Sub