Knap i regneark

Jeg er, (som nogle sikkert har set før), ved at lave en knap i et regneark, hvor den skal gemme og lukke, men først checke for nogle kriterier.

Private Sub CommandButton1_Click()

  Dim sti As String, Navn As String, uge As String
   
 
 
  sti = "c:\timeregistering"
  uge = " Uge " & Range("D4").Value
  Navn = "Timeregistrering " & Range("D2").Value & " " & uge
 
  If Dir(sti, vbDirectory) = "" Then MkDir sti
 
 
  If Range("D2").Value = "" Then
    MsgBox "Der er ikke angivet et navn!", vbCritical
    End If
 
 
        If Range("D4").Value = "" Then
          MsgBox "Du har ikke angivet hvilken uge timeseddelen gælder for!", vbCritical
          End If
  Exit Sub
       
           
           
                ActiveWorkbook.SaveAs Filename:=sti & "\" & Navn
                MsgBox "Fil gemt som " & Navn & " i mappen " & sti
               
Application.Quit
End Sub

Hvis der ikke står noget i D2 og/eller D4, popper den op med det, men der sker bare ikke noget når man trykker gem, hvis alle kriterier er opfyldt!

Hvad er der galt?