Timestamp For Specific Sheet

[CokeOrCrack]

- I have a workbook that contains 10 sheets
- I would like a timestamp to appear in cell G10 for when any edit is made in one specific sheet
i.e. The specific sheet is named "General", so I'd like the timestamp to appear in G10 in "General"
- I don't want the timestamp to change if edits are made in any of the remaining 9 sheets

Q
How do I timestamp any edit to a specific sheet?

I have tried the following code, and it occasionally works, but it will eventually return this error:

"Run-time error '-2147417848 (80010108)':
Method 'Range' of object'_Worksheet' failed"

Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("General").Range("G10") = Now
End Sub

I don't understand why it initially works, but then returns the error.
Is this the best route to pursue for this question, or is there a better way?

Thanks

OJ

 

[Dim Me as xlNoob]

Is the above code placed in the sheet module only for the General sheet?

The code is going to keep triggering itself and loop through everytime it edits the timestamp so you need something like:

Pasted in the sheet module only for "General"

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("G10")) Is Nothing Then Range("G10") = Now
End Sub

 

[CokeOrCrack]

My code is placed correctly in the sheet module.

I tried your code edit and it works as intended. Thanks!

 

[Dim Me as xlNoob]

Glad to hear no problem

 

[CokeOrCrack]

Is there a way to attach an And statement into the If? I would like to put the user's name in cell K10 when an edit is made. The user's name is stored in a sheet titled "Numbers" in cell BC2

 

[CokeOrCrack]

Nevermind, I solved my own question. The following code will input both:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("G10:K10")) Is Nothing Then
        Range("G10:J10") = Now
        Range("K10") = Sheets("Numbers").Range("BC2")
        Cancel = True
    End If
End Sub