?
Solved

Apply format to certain worksheets in workbook

Posted on 2013-11-04
1
Medium Priority
?
323 Views
Last Modified: 2013-11-04
I need to be able to apply conditional formats to certain sheets in an excel file.
This is what I have:

Open in new window

Dim vSheets As Variant
Dim wb As Workbook

Set wb = ThisWorkbook

vSheets = Array("Referrals", "MessagesLeft", "ServiceLevel", _
        "RPC_NoPTP_NoReferral_Cnt", "RPC_NoPTP_NoReferral_%", "Download", "Attempts", "DialerConnects")
For Each vSheets In wb.Worksheets

Variance
Next vSheets
0
Comment
Question by:DCUnited
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
1 Comment
 
LVL 43

Accepted Solution

by:
Saqib Husain, Syed earned 1200 total points
ID: 39621600
I assume that variance is a sub. You can have something like

vSheets = Array("Referrals", "MessagesLeft", "ServiceLevel", _
        "RPC_NoPTP_NoReferral_Cnt", "RPC_NoPTP_NoReferral_%", "Download", "Attempts", "DialerConnects")
For Each vsheet In vSheets
wb.Worksheets(vsheet).Activate
Variance
Next vsheet
0

Featured Post

Get real performance insights from real users

Key features:
- Total Pages Views and Load times
- Top Pages Viewed and Load Times
- Real Time Site Page Build Performance
- Users’ Browser and Platform Performance
- Geographic User Breakdown
- And more

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Do you use a spreadsheet like Microsoft's Excel?  Have you ever wanted to link out to a non excel file on your computer or network drive?  This is the way I found to do it!
If you need to forecast numbers -- typically for finance -- the Windows and Mac versions of Excel 2016 have a basket of tools to get the job done.
This Micro Tutorial will demonstrate the scrolling table in Microsoft Excel using the INDEX function.
Six Sigma Control Plans

800 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question