Worksheet does not become the active 1 using .Activate function based on MsgBox response

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

If the tab 'Project' is hidden, then you need to add:

Sheets("Project").Visible=True

before Activating it.

It is not hidden.

I would say it's because Response is declared as Boolean and thus can only have two values: True or False, so it won't accept vbNo. Change Response variable to be as String and it should work. But this is only my opinion

Sbarro79, thank you very much! works like a charm

Also, Change:

Dim Response As Boolean

to:

Dim Res As Boolean

Some words do not work effectively when declared, and try Variant instead of Boolean.