View Single Post
 
Old 05-04-2012, 08:24 AM
Peter Wienand Peter Wienand is offline Windows 7 64bit Office 2010 32bit
Novice
 
Join Date: May 2012
Posts: 15
Peter Wienand is on a distinguished road
Default

You could try something like this in the Sheet2's worksheet change event

Code:
 
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
Reply With Quote