VBA: Hvordan hopper jeg til korrekt ark

http://gratisupload.dk/f/8s0w6r9kf0/

Mit skema er tiltænkt således at jeg i faneblad fabruar kører min makro. Den skal så kopiere arket (med formler til ny fane = "Mdr xx" hvorefter den i faneblad februar skal fjerne alle formler.

Min udfordring er at selvom fane februar har indeks nummer 4, så hopper den ikke retur. Hvad gør jeg forkert.

Makroen ligger i arket, men er også her:
Sub Close_month()

Dim IntCurrentSheet As Integer
IntCurrentSheet = ActiveSheet.Index

Response = MsgBox("Vil du lukke måneden? Husk at skemaet skal være navngivet med måneden", vbYesNo)
If Response = vbYes Then
    ' copy to new sheet
    ActiveSheet.Copy Before:=ActiveSheet
    ActiveSheet.Name = "Mdr XX"
    ' jump to old sheet
    Sheets(IntCurrentSheet).Activate <- HER ER MIN KODEUDFORDRING
    ' mark all
    ActiveSheet.Select
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues
    ' delete button and set closing date
    ActiveSheet.Shapes.Range(Array("Button 1")).Delete
    Range("F1").Select
    ActiveCell.Formula = "Lukket " & Now
    ' hide columns
    Range("D:D, E:E").EntireColumn.Hidden = True
End If
End Sub