I currently have a timestamp code, which is working perfectly fine:
Private Sub worksheet_change(ByVal target As Range)
Dim wk As Workbook
Set wk = ThisWorkbook
Dim ws As Worksheet
Set ws = ActiveSheet
WatchedColumn = 20
BlockedRow = 1
TimestampColumn = 21
Crow = target.Row
CColumn = target.Column
If CColumn = WatchedColumn And Crow > BlockedRow Then
Cells(Crow, TimestampColumn) = Now()
End If
End Sub
Now I would like to add another two timestamp codes, which will watch different columns, and add the timestamps to different place. If I add another to the Class Module I get the error "Ambiguous name detected: worksheet_change" and I'm not sure how I need to create multiple timestamps?
Bookmarks