「ThisWorkbook」にて以下のソースを記述。
┌──────────────────────────────────────┐
│Option Explicit                                                             │
├──────────────────────────────────────┤
│Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) │
│    MsgBox "シート名=" & Sh.Name & "(" & Sh.CodeName & ")" & vbLf _         │
│        & "横=" & Target.Column & vbLf _                                    │
│        & "縦=" & Target.Row                                                │
│End Sub                                                                     │
└──────────────────────────────────────┘
入力したセルの情報が取得できる。

シート名と座標で条件分岐すれば、
特定のセルでの入力に対して動作することができる。