Private Sub Worksheet_Change(ByVal Target As Range) Dim Cell As Range For Each Cell In Target Call Detection(Cell) Next Cell End Sub