Sub Hesapnoilevadtelihesapsil()Dim lr As Integer
Dim Message, Title, Default, MyValue
Dim blnExt As Boolean
blnExt = False
Message = "SİLİNMESİNİ İSTEDİĞİNİZ HESAP NO GİRİNİZ :"
Title = "HESAP NO SİLME" ' Set title.
Default = "xxx" ' Set default.
MyValue = InputBox(Message, Title, Default)
If StrPtr(MyValue) = 0 Then
blnExt = True
ElseIf (MyValue = Default) Then
blnExt = True
End If
If blnExt = True Then Exit Sub
lr = Cells(Rows.Count, 3).End(xlUp).Row
For i = lr To 10 Step -1
If Cells(i, 3) = MyValue Then Rows(i & ":" & i).EntireRow.Delete
Next i
Range("B2").Select
End Sub