Give color to sheets?

[santoshloka]

is there any way to give colors for new sheets with macro?

 

[mumps]

Re: how to give color to sheets?

Do you mean the entire sheet or the sheet tab name?

 

[santoshloka]

Re: how to give color to sheets?

sheet tab only,
is it possible to give colors for multiple sheet tabs?

 

[Rick Rothstein]

Re: how to give color to sheets?

sheet tab only,
is it possible to give colors for multiple sheet tabs?

Immediately after you add the new sheet, it is the active sheet so you can execute this line of code next (where I assume the color for the tab is red)...

ActiveSheet.Tab.Color = vbRed

 

[mumps]

Re: how to give color to sheets?

This macro will color the tab for Sheet1 red. If you want all sheets tabs colored, you can loop through them.

Sub ColorTabs()
    Sheets("Sheet1").Tab.Color = 255
End Sub

 

[santoshloka]

Re: how to give color to sheets?

for multiple sheet tabs or select sheet tabs?

 

[mumps]

Re: how to give color to sheets?

If it is select sheets, then we need to know the name of those sheets.

 

[santoshloka]

Re: how to give color to sheets?

List,Report sheet tab names,your code not working @mumps

 

[Rick Rothstein]

Re: how to give color to sheets?

List,Report sheet tab names,your code not working @mumps

Give this a try...

Sub ColorListAndReportTabs()
  Dim WS As Variant
  For Each WS In Array("List", "Report")
    Sheets(WS).Tab.Color = vbRed
  Next
End Sub

 

[santoshloka]

Re: how to give color to sheets?

your code giving same color to both sheets
if i wan to give another color for Report sheet?