Code to Delete Sheet Tabs

[Justinian]

I have a code I run to split data into tab named after managers. All managers are together on sheet1 and after I run the code, each manager's data is on its own tab. The problem is the when the code is run again, it adds data on each tab instead of replacing the data on each tab. How can I construct some code so Excel deletes all tabs to the right of my data sheet before running my original code to separate tabs?

 

[Justinian]

Try changing

Application.ScreenUpdating = False

to

    With Application
        .ScreenUpdating = False
        .Calculation = xlCalculationManual
    End With

and

Application.ScreenUpdating = True

to

    With Application
        .ScreenUpdating = True
        .Calculation = xlCalculationAutomatic
    End With

Wow! Now it runs even faster than it ever did before! Thank you!

 

[renju]

Some one please help, the following VBA code is not working, any suggestions to edit the code, Pls let me...
Option Explicit
Private Sub Worksheet_Activate()
Dim r As Range, c As Range
Set r = Range("a1:a299")
Application.ScreenUpdating = False
For Each c In r
If Len(c.text) = 0 Then
c.EntireRow.Hidden = True
Else
c.EntireRow.Hidden = False
End If
Next c
Application.ScreenUpdating = True
End Sub

 

[MARK858]

@renju, Please start a new thread of your own rather than hijack someone else's.

To start a new thread click the post new thread button on the main page.

 

[MARK858]

Wow! Now it runs even faster than it ever did before! Thank you!

You're welcome

 

[renju]

@mark858 - Done, I am a new user to this site, thanks for the advise..