Msgbox tan sonra sayfa hücrelerine veri girilememesi

[calecale]

If Range("b2") = "" Then
MsgBox "Lütfen Tarih Giriniz.", vbCritical, "Eksik Bilgi Girişi"
Range("b2").Select
Exit Sub
End If

Yukarıdaki işlemde b2 hücresi boş olduğunda mesaj veriyor. Mesaj kutusunu kapattığımda o sayfanın hiçbir hücresine veri girişi yapamıyorum.Ta ki başka bir sayfaya tıklayıp geri geldiğimde açılıyor hücreler.
Acaba sebebi ne olabilir?

 

[calecale]

Aynı kodu bir şekle atayıp makro gibi çalıştırdığımda bir sıkıntı olmuyor.Ama VBA düğmesinde sayfa kilitleniyor. Aynı işlemi yapıyorlar ama biri sayfayı kilitlerken diğerinde bir şey olmuyor.