You can't undo macros. If you don't like what you get you need to exit from
excel without saving


--


Regards,


Peo Sjoblom



"mmccoog" wrote in message
...
This is great and very usefule. I noticed that the undo function is
disabled.
Is that more complicated to change?

"Dave Peterson" wrote:

Try this:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)

Dim myRng As Range
Dim myRow As Range
Dim myRngToInspect As Range

With Me
Set myRngToInspect = .Range("D7", .Cells(.Rows.Count,
.Columns.Count))
End With

Set myRng = Intersect(Target, myRngToInspect)

If myRng Is Nothing Then
Exit Sub
End If

Application.EnableEvents = False
For Each myRow In myRng.Rows
Me.Cells(myRow.Row, "C").Value = "C"
Next myRow
Application.EnableEvents = True

End Sub


If it doesn't work, post back with the version of the code you used.
Include
where you placed the code.

Picman wrote:

I'm still getting nothing. I'm using Excel 2003. The data in this
worksheet
begins on row 7 (headers above that), and column C is where I would
like the
indicator to go. It should indicate a "C" in column c if any data is
changed
in any cell in columns to the right of that (D,E,F...etc.)

"Dave Peterson" wrote:

Macros have to be enabled.
Events can't be disabled.

Put the code in the worksheet module.
Save and close the workbook.
reopen the workbook

If you get prompted to allow macros, answer yes.

Then change a cell outside of column A to see if it works.

====
If you don't get prompted, then post back with the version of excel
you're
using.

Picman wrote:

I must be missing something here because this did nothing.

"Dave Peterson" wrote:

Right click on the worksheet tab that should have this behavior
and select view
code. Then paste this into the newly opened codewindow.



Picman wrote:

Could you walk me through the "worksheet code area". I'm not
familier with
this part of Excel. Also how can i change the coordinates of
the destination
cell to allow for column headings etc?

"Gary''s Student" wrote:

Put the following macro in the worksheet code area:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Cells(Target.Row, 1).Value = "C"
Application.EnableEvents = True
End Sub

--
Gary''s Student - gsnu200738


"Picman" wrote:

I would like to indicate with a specific value ("C") in the
first cell of a
row if any changes have been made in that row since the
file was created. In
other words if a value was input or changed in cell "M1" i
would like cell
"A1" to be populated with a "C". Can this be done?

--

Dave Peterson


--

Dave Peterson


--

Dave Peterson