msgbox hakkında

[bitmez13]

makromun sonunda userform1 açıkken üstünde msgbox ile mesaj alıyorum
msgbox altında tamam butonu çıkıyor tamam butonuna basınca msgbox kapanıyr ama userform1 kapanmıyor aynı anda kapanmasını istiyorum ne yapabilirim

Private Sub UserForm_Activate()
tarih = Format(Now, "dd.mm")
For i = 1 To Sheets("Sayfa1").Range("a65536").End(3).Row
If tarih = Format(Sheets("Sayfa1").Cells(i, 1), "dd.mm") Then
mesaj = "Buğün Doğum Günü Olanlar : " & vbCr
msj = msj & Sheets("Sayfa1").Cells(i, 2) & " " & Sheets("Sayfa1").Cells(i, 3) & " " & Sheets("Sayfa1").Cells(i, 4) & vbCr
End If
Next i
MsgBox mesaj & vbCr & msj & msj1
End Sub

 

[hamitcan]

Unload me

satırını ekleyin.