Yardım Userform VBA yardım

Private Sub UserForm_Activate()
'ShockwaveFlash1.Play
    Me.Width = 157
    Me.Height = 20
    While Me.Height < 154
         Me.Height = Me.Height + 1
        Me.Width = Me.Width + 1
        Me.StartUpPosition = 1
        DoEvents
        Sleep 5
        If pir = True Then Exit Sub
    Wend
End Sub

Private Sub UserForm_Initialize() // Hata veren satır
On Error Resume Next
'dFrame1.Enabled = False
If anamenu.anaadi = Empty Then
Unload anamenu1
deadi.SetFocus
Else
dadi.Value = anamenu1.anaadi.Value
Range(Range("B3"), Range("B" & Sayfa1.[A1].Value + 2)).Select
Selection.Find(dadi.Value, ActiveCell, , xlWhole).Activate
dehliyet.Value = ActiveCell.Offset(0, 1).Value
dcekici.Value = ActiveCell.Offset(0, 2).Value
ddorse.Value = ActiveCell.Offset(0, 3).Value
datel.Value = ActiveCell.Offset(0, 4).Value
dcep.Value = ActiveCell.Offset(0, 5).Value
dtc.Value = ActiveCell.Offset(0, 6).Value
dsgk.Value = ActiveCell.Offset(0, 7).Value
dsbk.Value = ActiveCell.Offset(0, 8).Value
dikm.Value = ActiveCell.Offset(0, 9).Value
dsirket.Value = ActiveCell.Offset(0, 10).Value
daciklama.Value = ActiveCell.Offset(0, 11).Value
deadi.SetFocus
Unload anamenu1
End If
deehliyet.Clear
deehliyet.AddItem "EKSIK"
deehliyet.AddItem "C"
deehliyet.AddItem "D"
deehliyet.AddItem "E"
deehliyet.AddItem "E-D"
End Sub

dadi.Value = anamenu1.anaadi.Value