Results 1 to 3 of 3
  1. #1
    Silver Lounger
    Join Date
    Dec 2000
    Location
    California, USA
    Posts
    1,758
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Changing Tab Color (XL 97; SR2)

    Is it possible to change the sheet(tab) color of the sheets in a workbook. If you select a sheet the tab changes from grey to white.

  2. #2
    Gold Lounger
    Join Date
    Feb 2001
    Location
    Dublin, Ireland, Republic of
    Posts
    2,697
    Thanks
    1
    Thanked 0 Times in 0 Posts

    Re: Changing Tab Color (XL 97; SR2)

    You cannot change the tab color in versions up to and including 2000, but I think that might have changed for XL2002 (XP).

    Andrew C

  3. #3
    Bronze Lounger
    Join Date
    Jun 2001
    Location
    New York, New York, Lebanon
    Posts
    1,449
    Thanks
    1
    Thanked 1 Time in 1 Post

    Re: Changing Tab Color (XL 97; SR2)

    Jstevens

    This feature is ready in Excel XP or 2002. The defualt colors of the worksheet tabs is set by Windows in all other versions and you ca't change it. Sorry

    I guess its time to be creative and find a work-around such as making a cell some color that you would like and make that cell what the user will look at to find what they are looking for.

    Possibly have a message in the statusbar that changes when the sheet gets activated.

    Something like that may do the trick:

    Private Sub Worksheet_Activate()
    Call ChangeStatusBarCaption(ActiveSheet.Name)
    End Sub


    Sub ChangeStatusBarCaption(SheetName As String)
    Dim sStatusBarCaption As String '/Contains the Caption to display.

    Select Case SheetName
    '/Select which sheet was selected.
    Case Is = "Sheet1"
    '/Assign what goes with what sheet.
    sStatusBarCaption = "Put what you want for this sheet here"
    Case Is = "Sheet2"
    sStatusBarCaption = "Do the same as above here..."
    Case Is = "Sheet3"
    sStatusBarCaption = "Do the same as above here...<>"
    Case Else
    sStatusBarCaption = ""
    End Select

    With Application
    If sStatusBarCaption = "" Then
    .StatusBar = False
    Else
    .StatusBar = sStatusBarCaption
    End If
    End With
    End Sub

    Hope this helps

    Wassim
    Think of what you are doing and see why its so funny.
    <img src=/S/compute.gif border=0 alt=compute width=40 height=20> in the <img src=/S/bagged.gif border=0 alt=bagged width=22 height=22>

Posting Permissions

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