I do not see what is going wrong here.
Before the user runs the macro, they are supposed to use the autofilter on the "Project" tab to determine which #'s they would like to sort the data by.
I have put a message box in, in case the user forgot to do that.
If they select "No", exit the sub and have the active sheet be the "Project" tab.
If "Yes" just run the macro(which works).

I cannot get the "Project" tab to be the sheet shown if "No" is clicked.
Any advice?

*edit: it always goes to the "SC" tab instead
Below is my macro:

Sub Project()
Dim Response As Boolean
'Make sure user has selected Project numbers from the Project tab.
Response = MsgBox("Did you select which Project(s) you want to sort by in the Project tab?", vbYesNo, "Project Sort")
'If they have not, make the Project tab shown and exit the sub. 
If Response = vbNo Then
Worksheets("Project").Activate  

Exit Sub

End If

With Application

        .Calculation = xlCalculationManual

        .ScreenUpdating = False
'-------------------------------------------------------------------------
'DM Project # Search.
Dim lastrowProject As Long
lastrowProject = Worksheets("Project").Cells(Rows.Count, 1).End(xlUp).Row
Sheets("DM").Select
Columns("O:O").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Sheets("Project").Range("A1", Sheets("Project").Range("A" & lastrowProject)), Unique:=False
  

'------------------------------------------------------------------------------
'SC Project # Search.
lastrowProject = Worksheets("Project").Cells(Rows.Count, 1).End(xlUp).Row
Sheets("SC").Select
Columns("O:O").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Sheets("Project").Range("A1", Sheets("Project").Range("A" & lastrowProject)), Unique:=False


        .Calculation = xlCalculationAutomatic

        .ScreenUpdating = True

    End With
End Sub