msgBox popper ikke op
jeg har en knap i excel der ser sådan her ud.hvorfor popper den ikke op med msgbox når der ikke er noget navn i den celle?
Private Sub CommandButton2_Click()
Dim Navn As String, md As String, sti As String
Navn = Range("D2").Value
md = MonthName(Month(Date), False)
sti = ActiveWorkbook.Path
ActiveWorkbook.SaveAs Filename:=sti & "\" & "timeregistrering " & Navn & " " & md, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
If Range("D2").Value = "" Then
If vbNo = MsgBox("Der er ikke angivet et navn. Tryk nej for at vælge dit navn", vbYesNo) Then
MsgBox "Fil ikke gemt"
Exit Sub
End If
End If
ActiveWorkbook.SendMail Recipients:="domæne@udbyder.dk", Subject:="Timeregistrering " & Navn & Space(1) & md
Application.Quit
End Sub
