Sorting Active Page in a workbook with multiple pages and code quits working

Private Sub Worksheet_Calculate()

Dim Xrg As Range
Set Xrg = Worksheets("Monday").Range("F4:F50")

If Not Intersect(Xrg, Worksheets("Monday").Range("F4:F50")) Is Nothing
Then

Application.Run "DriverSchedule.xlsm!Sort1"

End If
Set Xrg = Nothing
End Sub
I am checking for any change to the F column on sheet1″Monday” if a change happens than I sort using this code: Sub Sort1()

Range("N3:O50").Select
Selection.ClearContents
Range("E3:F50").Select
Selection.Copy
Range("N3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("Monday").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Monday").Sort.SortFields.Add Key:=Range("O4:O50") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Monday").Sort
.SetRange Range("N3:O50")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A4").Select
End Sub
This code is located in Module1 and sorts perfectly until I add the next sheets code

Private Sub Worksheet_Calculate()

Dim Xrg As Range
Set Xrg = Worksheets("Tuesday").Range("F4:F50")

If Not Intersect(Xrg, Worksheets("Tuesday").Range("F4:F50")) Is Nothing
Then

Application.Run "DriverSchedule.xlsm!Sort2"

End If
Set Xrg = Nothing
End Sub
Now this code is suppose to be looking for a change to column F of sheet2″Tuesday” than if there is a change it calls Module2″sort2″

Sub Sort2()

Range("N3:O50").Select
Selection.ClearContents
Range("E3:F50").Select
Selection.Copy
ActiveWindow.SmallScroll Down:=-18
Range("N3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("Tuesday").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Tuesday").Sort.SortFields.Add Key:=Range("O4:O50") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Tuesday").Sort
.SetRange Range("N3:O50")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A4").Select
End Sub
Which than sorts sheet2″Tuesday” column F and works fine also.

Now the problem is that sheet1″Monday” no longer sorts. I have six sheets to represent Monday through Saturday and I need to sort if there is a change detected in column F but I cant seem to get all the sheets to sort if I add code under the sheet windows and even if I make separate modules for each sheet.

I need to detect a change in column F on whatever day(sheet) I am working on than copy and sort two columns(Columns E and F) to another location on that same sheet.

Any ideas?

So its like the code is crosstalking among the pages. I can sort on which ever page I last add code but the code quits working on all previous pages.

Gosh, there are terrible rains in Texas, some sort of flood have washed away all formatting of the vba code

Check if it (below) will work according to your expectations:

1. Macro "Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)" paste in "ThisWorkbook" module

Please Login or Register  to view this content.

2. Macro "Sub Sort(shtNme As String)" paste in "Module1" module

Please Login or Register  to view this content.

Good Morning

Thank you for making me laugh with your "Texas rains" comment and point well taken.

I have copied and pasted the code to the proper locations.
I than closed and saved the workbook.
When I reopen the workbook and try to run the code it doesn't run.
I than tried to step through the code and it won't do that either.
It only brings up a marco window which has no marcos in it.
The code will compile with out a problem but if it wont allow me to step through the code. I do not have a clue how to debug this issue.
I am using Excel 2016

Once again thanks for your help

I have figured out that the code is running but it is skipping over the Call sort line of code. not sure how to fix

1. Try this example of a workbook below
2. I used "F4:F50" range because you had it in your macro, but you can type another one