Need code for simple change event

J

Jake

I want to run a simple If..Then based on a change to a range of cells
containing text. Basically something like this

If Range("E50:E100") changes Then
Range("A3") = Now()
End if

So if the text changes in the range the date of the document updates
to the system date. Seems like it should be simple but I can't figure
out how to do it. Any help appreciated.

Jake
 
R

Rob Bovey

Hi Jake,

Here's one way to do it:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngTest As Range
On Error Resume Next
Set rngTest = Intersect(Target, Me.Range("E50:E100"))
On Error GoTo 0
If Not rngTest Is Nothing Then
Me.Range("A3").Value = Now()
End If
End Sub

--
Rob Bovey, MCSE, MCSD, Excel MVP
Application Professionals
http://www.appspro.com/

* Please post all replies to this newsgroup *
* I delete all unsolicited e-mail responses *
 
Top