Private Sub Worksheet_Change(ByVal Target As Range)
  Range("K1").Calculate

  Debug.Print "sheet changed - O_o"
  Range("K2").Value = "works"
End Sub