Timestamps updating whenever I open excel

Callie_McDonough 

You need an event procedure for this instead of a function.

Let's say you enter the steps in S2:S50 and you want a timestamp in the corresponding cells in T2:T50.

Right-click the sheet tab.

Select View Code from the context menu.

Copy the following code into the worksheet module:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    Dim cel As Range
    Set rng = Intersect(Range("S2:S50"), Target)
    If Not rng Is Nothing Then
        On Error GoTo ExitHandler
        Application.ScreenUpdating = False
        Application.EnableEvents = False
        For Each cel In rng
            If cel.Value = "" Then
                cel.Offset(0, 1).ClearContents
            Else
                cel.Offset(0, 1).Value = Now
            End If
        Next cel
ExitHandler:
        Application.EnableEvents = True
        Application.ScreenUpdating = True
    End If
End Sub