Run time error 13, type mismatch

[emran06]

Dear All,
I have used macro from this forum, it is working and some time appear run time error 13, type mismatch and show windows for debug. during run time error it highlighted this line- If Target = "" Then

Please help me how can I get solution.

Private Sub Worksheet_Change(ByVal Target As Range)

Dim v As Long, ws As Worksheet
Set ws = ActiveSheet
If Target = "" Then
If sName <> "" Then
If MsgBox("Delete the sheet named """ & sName & """?" & vbLf & vbLf & "(Are you sure to delete press YES)", vbYesNo + vbQuestion) = vbNo Then
Exit Sub

 

[repairman615]

Hello,

Welcome to the Board!

Does this still happen with the added target.VALUE?

Private Sub Worksheet_Change(ByVal Target As Range)

Dim v As Long, ws As Worksheet
Set ws = ActiveSheet
If Target.Value = "" Then
If sName <> "" Then
If MsgBox("Delete the sheet named """ & sName & """?" & vbLf & vbLf & "(Are you sure to delete press YES)", vbYesNo + vbQuestion) = vbNo Then
Exit Sub

 

[emran06]

Dear Sir,
Thanks for your prompt reply. I have tried same to you but not working. Pls help me if any alternative

 

[emran06]

Hello,

Welcome to the Board!

Does this still happen with the added target.VALUE?

Private Sub Worksheet_Change(ByVal Target As Range)

Dim v As Long, ws As Worksheet
Set ws = ActiveSheet
If Target.Value = "" Then
If sName <> "" Then
If MsgBox("Delete the sheet named """ & sName & """?" & vbLf & vbLf & "(Are you sure to delete press YES)", vbYesNo + vbQuestion) = vbNo Then
Exit Sub

Sir, I have tried but not work.

 

[ogo]

Try this,


Private Sub Worksheet_Change(ByVal Target As Range)

Dim v As Long, ws As Worksheet
Set ws = ActiveSheet
If Target.Text = "" Then
If sName <> "" Then
If MsgBox("Delete the sheet named """ & sName & """?" & vbLf & vbLf & "(Are you sure to delete press YES)", vbYesNo + vbQuestion) = vbNo Then
Exit Sub<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
End If<o></o>
End If<o></o>
End If<o></o>
End Sub<o></o>


Regards,
Ogo

 

[emran06]

Thanks you Sir, Problem is solved.