Teach me how to run multiple subs in one module, please?

The first sub here does a great job time-stamping updates to a range within Sheet4.

The second sub is supposed to time-stamp a cell in Sheet2 based on changes in Sheet4.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Target
If .Count > 1 Then Exit Sub
If Not Intersect(Range("A2:A70"), .Cells) Is Nothing Then
Application.EnableEvents = False
If IsEmpty(.Value) Then
.Offset(0, 7).ClearContents
Else
With .Offset(0, 7)
.NumberFormat = "mm/dd/yy hh:mm AM/PM"
.Value = Now
End With
End If
Application.EnableEvents = True
End If
End With
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Me.Range("D2:D1048)").Address Then
Sheets("Sheet2").Range("C13").Value = Format(Date, "dd-mm-yyyy") & " " & Format(Now, "h:mm:ss AM/PM")
End If
End Sub

Problem is that I do not know enough about VBA syntax to run both within the same module.

An alternative would be to use a single sub that would, upon updates to a range in Sheet4, time-stamp cells in *both* Sheet4 and Sheet2.


Thoughts? I really appreciate some of the awesome folks on this forum. Lots of experts, good help, sharp.

"Run-time error: '9':
Subscript out of range."

It highlights the line

With Sheets("Sheet2").Range("C13")

I think this is because I have a range in Sheet4, but want any changes in Sheet4 to make an update to the timestamp in a single cell in Sheet2.

I can't do target a range to change a single cell, correct?

Originally Posted by shg

Please Login or Register  to view this content.

I get the same error message if Sheet2 doesn't exist, other than that shg's code works perfectly - does the sheet definitely have this exact name?

You were right - I had given Sheet2 another name. I updated that, and the code worked.

Thank you so much!

Originally Posted by brokenbiscuits

I get the same error message if Sheet2 doesn't exist, other than that shg's code works perfectly - does the sheet definitely have this exact name?

Solved.

shg and biscuits - thank you both very much.