değiştir yavaşlaması

[ipkins]

arkadaşlar yaklaşık olarak 32 adet textbox var verileri çağırıyorum üzerinde değişiklik yapıp değiştir diyorum kaydetmesi yaklaşık olarak 40 sn alıyor bu kadar uzun sürmesi normal midir yoksa biryerde hatamı yapıyorum textbox lara veri girişini "x" harfi olarak kısıtladım ve değiştir kodlarımda şnlar :
Private Sub değiştir_Click()
If TextBox1.Value = "" Then
MsgBox "ÖNCE BİR İSİM SEÇİN"
TextBox1.SetFocus
Exit Sub
End If
If mis.Value = "" Then
mis = 0
End If
DURUM = MsgBox("LÜTFEN MİSAFİR YEMEĞİNİ UNUTMAYINIZ" & vbCrLf & "DEVAM ETMEK İÇİN <EVET> MİSAFİR YEMEĞİ EKLEMEK İÇİN <HAYIR> DEYİNİZ", vbYesNo, "DEĞİŞİKLİK ONAYI")
If DURUM = vbNo Then
Cancel = True
mis.SetFocus
Else:
ActiveCell.Offset(0, 3) = a
ActiveCell.Offset(0, 4) = b
ActiveCell.Offset(0, 5) = c
ActiveCell.Offset(0, 6) = d
ActiveCell.Offset(0, 7) = e
ActiveCell.Offset(0, 8) = f
ActiveCell.Offset(0, 9) = g
ActiveCell.Offset(0, 10) = h
ActiveCell.Offset(0, 11) = ı
ActiveCell.Offset(0, 12) = j
ActiveCell.Offset(0, 13) = k
ActiveCell.Offset(0, 14) = l
ActiveCell.Offset(0, 15) = m
ActiveCell.Offset(0, 16) = n
ActiveCell.Offset(0, 17) = o
ActiveCell.Offset(0, 18) = ö
ActiveCell.Offset(0, 19) = p
ActiveCell.Offset(0, 20) = r
ActiveCell.Offset(0, 21) = s
ActiveCell.Offset(0, 22) = ş
ActiveCell.Offset(0, 23) = t
ActiveCell.Offset(0, 24) = u
ActiveCell.Offset(0, 25) = ü
ActiveCell.Offset(0, 26) = v
ActiveCell.Offset(0, 27) = y
ActiveCell.Offset(0, 28) = z
ActiveCell.Offset(0, 29) = aa
ActiveCell.Offset(0, 30) = ab
ActiveCell.Offset(0, 31) = ac
ActiveCell.Offset(0, 32) = ad
ActiveCell.Offset(0, 33) = ae
ActiveCell.Offset(0, 35) = mis * 1
DUR = MsgBox("VERİLER YENİLENDİ")
temizle_Click
TextBox1.SetFocus
End If
End Sub
acaba hatalı bir yermi var bu tatil günü zaman ayırıp yardım eden arkadaşlara teşekkür ederim.