Çözüldü Tek ve Çoklu Sütun/Satır Silmek

Private Sub CommandButton1_Click()
    If OptionButton1.Value = True Then
        If IsNumeric(TextBox1.Value) Or InStr(1, TextBox1.Value, ":") > 0 Then
            Rows(TextBox1.Value).Delete
            OptionButton1.Value = False
                Else
            MsgBox "Satır Numarası Yazmalısınız.", _
            vbInformation, "Www.ExcelTurkey.Com"
        End If
    ElseIf OptionButton2.Value = True Then
        If Not IsNumeric(TextBox1.Value) Then
            Columns(TextBox1.Value).Delete
            OptionButton2.Value = False
                Else
            MsgBox "Sütun Adını Yazmalısınız.", _
            vbInformation, "Www.ExcelTurkey.Com"
        End If
    End If
    TextBox1.Value = ""
End Sub