runs to end sub then starts over

[bcselect]

Below are a few lines of code at the bottom of the routine. When it reaches the End Sub at the bottom, it goes up to the previous sub and starts over. Will not exit the sub.
I'm out of ideas.

Sheets("Main").Select

ActiveWorkbook.SaveAs Filename:="C:\GOLF Program\Master.xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
' ActiveWindow.SmallScroll Down:=-15
Call MoveTempM

End Sub
'8/18/22 moves Temp M's to calc sheet for processing

Sub MoveTempM()

Sheets("Out of Town Tournament").Select
Range("A22:A221").Copy
Sheets("Calc").Select
Range("M4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Out of Town Tournament").Select
Range("c22:d221").Copy
Sheets("Calc").Select
Range("O4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Range("T4:U203").Copy
Sheets("Flight Printout").Select
Range("CT3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Flight Printout").Select
Range("CT3:CU25").Copy
Sheets("Out of Town Tourn Plot").Select
Range("BA4:BB26").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

End Sub

 

[igold]

Why don't you include the entire Sub. If it is a Worksheet Change event trigger, that might explain the endless loop, but we will never know because we don't see the entire Sub.