title: runtime error 438 out of nowhere
body: <p>I have been working on a doc with the code below for several days and have had no problems. It's supposed to list any changes to another worksheet onto this worksheet "Log Details". Not sure what I did differently, but now the code give me a runtime 438 error. Does anyone have any ideas??</p>
  
  <pre><code>Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  Dim sSheetName As String
   sSheetName = "1107"
  If ActiveSheet.Name &lt;&gt; "LogDetails" Then
   Application.EnableEvents = False
   Sheets("LogDetails").Unprotect
   Sheets("LogDetails").Range("A" &amp; Rows.Count).End(xlUp).Offset(1, 0).Value = Target.Address(0, 0)
   **Sheets("LogDetails").Range("A" &amp; Rows.Count).End(xlUp).Offset(0, 1).Value = Sheets("1107").Target.Value**  &lt;--This is the code that brings up the error.
   Sheets("LogDetails").Range("A" &amp; Rows.Count).End(xlUp).Offset(0, 2).Value = Environ("username")
   Sheets("LogDetails").Range("A" &amp; Rows.Count).End(xlUp).Offset(0, 3).Value = Now
  
  
   Sheets("LogDetails").Columns("A:D").AutoFit
   Application.EnableEvents = True
   End If
   End Sub
  </code></pre>