A sheet module is part of the worksheet on which you want to run the code.
ONE way to get there is to Right click sheet tabview codeVOILA!.
However, I still don't understand what you want. Can't you give examples?

--
Don Guillett
SalesAid Software

"Murph" wrote in message
...
I'm having a hard time grasping the idea of the 'module' concept. I go
into
MicroSoft VB through Excel - Click "insert' select 'module' and paste that
information in. I do change the ranges now to G2:K2 and change the A1 to
L2.
So there I have it in place. I click 'save' and I assume I am good to go.
I
go to teh worksheet, type in a letter to cell g2 and nothing happens. This
is
where I get puzzled.

Is the 'module' a 'macro' and can I view it somehow? How do I know the
module has been accepted?

Most importantly I need to do this for every row in this worksheet - how
do
I expand that code for every row and not just row 2?

"Don Guillett" wrote:

A worksheet_change event fires when a cell in the desired range is
CHANGED.
I'm still not quite sure what you want. Please give a better explanation
with examples. What is here will put a date stamp in cell a1 if any cell
in
f2:j2 is changed.



--
Don Guillett
SalesAid Software

"Murph" wrote in message
...
I am trying to place a time stamp in cell L2 if there is text inside of
cells
F2:J2. This will be a reoccuring item that will happen in each row from
row
1-500. This seems like it should be an easy thing to do but I can't
wrap
my
brain around it this morning.

The formula I have so far is simply:
=IF(F20,NOW(), )

This gives me a time stamp for only cell F2, but I need the formula to
watch
from F2-J2. Thanks in advance.

"Mike" was kind enough to provide me with this to place into a
worksheet
module in VBA. I was able to place this in a 'module' in Excel 2007,
granted
it did not say 'worksheet module', just module. But I have no idea how
to
make it work, it is not listed under my macros.

Obviously I'm new to this so any help would be appreciated. Thanks in
advance.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ws_exit:
Application.EnableEvents = False
If Not Intersect(Target, Me.Range("F2:J2")) Is Nothing Then
With Target
If .Value < "" Then
Range("A1").Value = Format(Now(), "hh:mm:ss AM/PM")
End If
End With
End If
ws_exit:
Application.EnableEvents = True
End Sub