Results 1 to 2 of 2
  1. #1
    Gold Lounger
    Join Date
    Jan 2004
    Location
    Italy
    Posts
    3,245
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Cycling sheest... (2000 sr 1)

    This macro select one for one a sheet and after call a macro...
    My problem is:
    Not make a "flipping" during the macro....
    I have 53 sheets...
    Is possible to run the macro loop, without "flipping"?

    Sub LOOPSHEET()

    Dim i As Long
    For i = 1 To Sheets.Count
    If IsNumeric(Sheets(i).Name) Then
    Sheets(i).Select
    Call SE_OK
    End If
    Next 'i

    Worksheets("MENU").Select

    End Sub

  2. #2
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: Cycling sheest... (2000 sr 1)

    In many situations, it is possible to avoid selecting a worksheet, just as it is possible to avoid selecting cells in a macro. The code will have to be modified to use Sheets(i), instead of assuming that it operates on the active sheet.

    You can also turn off screen updating during the macro:

    Sub LOOPSHEET()
    Application.ScreenUpdating = False
    ...
    ...
    Application.ScreenUpdating = True
    End Sub

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •