Attribute VB_Name = "WriteStatus"
Option Explicit

Function run(content As String)
  On Error GoTo eh
  Worksheets(TARGET_SHEET).Range("A1").Value = content
  
Done:
  Exit Function

eh:
  Debug.Print "WriteStatus"
  Debug.Print content

End Function