The following is the code written by me to delete some sheets
which are marked as "T" in main sheet. however when the button is pressed
in Sheet "Main" it simply says Excel has stopped working and closing the workbook.
Guidance Requested...!

***
Private Sub EMPDEL_Click()
Dim C As Range
Dim nm As String
Dim empno As String

Application.DisplayAlerts = False
Application.ScreenUpdating = False

With Sheets("Main")
For Each C In Sheets("Main").Range("F41:F70")

If C.Value <> "" And Range("G" & C.Row).Value = "T" Then
nm = Range("C" & C.Row).Value
empno = C.Value

Sheets(empno).Delete
On Error Resume Next

MsgBox "Record deleted for " & nm & "-" & empno & ". ....!", , "Sal Register - R2D2"
Range("G" & C.Row).Select
Range("G" & C.Row).Value = "D"
On Error GoTo 0
End If

Next C
End With

Application.DisplayAlerts = True
Application.ScreenUpdating = True

End Sub

***