Private Sub Worksheet_Change(ByVal Target As Range) Dim c As Range For Each c In Target.Cells Sheets("Sheet1").Cells(c.Row, c.Column).Value = "*" Next c End Sub
Dim c As Range For Each c In Target.Cells Sheets("Sheet1").Cells(c.Row, c.Column).Value = "*" Next c