Private Sub Image_Erase_Click()
If Len(Electronic_Payment.TextBox1) < 2 Then
MsgBox "الرجاء كتابة اسم أول خلية " & vbNewLine & _
"والتى سيتم مسح البيانات من بدايتها ، بشكل صحيح ", vbMsgBoxRight + 16, ""
Exit Sub: End If
Electronic_Payment.Hide
ThisWorkbook.Worksheets("ElectronicPayment").Activate
Dim LR As Integer
LR = ThisWorkbook.Worksheets("ElectronicPayment").[L6].Value
Dim cl_1 As String
cl_1 = ThisWorkbook.Worksheets("ElectronicPayment").[L8].Value
ActiveSheet.Range(cl_1).ClearContents
MsgBox "تم مسح الخلايا فى العمود المحدد", vbMsgBoxRight + 64, ""
Exit Sub
ErrMsg: MsgBox " ـ لـم يـتـم تـنـفـيـذ الـمـطـلـوب ـ ", 16 + vbMsgBoxRight, ""