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_SelectionChange(ByVal Target As Range)
With Range("history")
.Cells(4, 2) = .Cells(3, 2)
.Cells(3, 2) = .Cells(2, 2)
.Cells(2, 2) = .Cells(1, 2)
.Cells(1, 2) = Target.Address(False, False)
End With
End Sub