Deleting Sheets

[rjayaram.rj]

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

***

[Richard Buttrey]

Hi, Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here



(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)

[rjayaram.rj]

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...!

Please Login or Register  to view this content.

[Richard Buttrey]

Hi,

Works OK for me.
Not that it probably makes any difference but what sort of "button" are you using. A Forms control, and Activex Command Button, or a Drawing shape.
Perhaps you'd better upload the workbook.