Thanks! You got me to think and figured it out.

"bpeltzer" wrote:

When the error occurs, what row has been selected by the end(xlUp)? In the
immediate window, what is the result of print range("c5600").End(xlUp).Row?
And what is in column C of that row? Even if the first condition of the AND
fails, Excel likes to evaluate the second condition, so an error in that cell
would also cause problems.


"CurtH" wrote:

I'm getting a runtime error '13':
Type Mismatch

The code is:

Function UsageLog_1()

' Stores who and when on Sheet1, column C
Sheets("UsageLog").Select

If Range("C5600").End(xlUp).Row = 1 And Range("C5600").End(xlUp).Value =
"" Then <===== This is the line which is highlighted for the error
Range("C5600").End(xlUp).Value = "Last opened by " &
Environ("username") & " at " & Now
Exit Function
End If

Range("C5600").End(xlUp).Offset(1, 0).Value = "Last opened by " &
Environ("username") & " at " & Now

ThisWorkbook.Sheets("COVER").Activate
End Function

Thanks in advance