Realizing my original post was a little too much for a quick answer so I will try and reword.
I have this code copied below. Works great, but want to run the condition on 36 different non-contingious cells which would create a huge code. I was trying to figure out how to have the borders turn on or off based on a condition of 1 or 2. 1 = borders on, 2 = borders off. Can use conditional format, but most of the people using this have 2003 and CF limited and does not include borders. I have re-attached a simple example spreadsheet with this same code below. If I'm still not clear enough please let me know what I need to include to make my question clearer.
https://www.box.com/s/aa74487e5f77dc667156
Sub BorderOn()
Dim intBordersOn As Integer
Dim StartRange As Range
Dim NewRange As Range
Set StartRange = Range("e2")
Set NewRange = StartRange.Offset(0, 0)
intBordersOn = NewRange
NewRange.Select
If intBordersOn = 1 Then
ActiveCell.Offset(1, 0).Range("A1:B6").Select
With Selection.Borders
.Weight = xlThin
.Color = vbBlack
End With
With Selection.Interior
.ThemeColor = xlThemeColorDark1
.TintAndShade = -0.149998474074526
End With
ActiveCell.Offset(-1, 0).Range("A1").Select
With Selection.Interior
.Color = 13434828
End With
With Selection.Font
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
.Color = 0
End With
Else: intMonth = 2
ActiveCell.Offset(1, 0).Range("A1:B6").Select
With Selection.Borders
.Weight = xlThin
.Color = vbWhite
End With
With Selection.Interior
.Color = RGB(255, 255, 255)
End With
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
With Selection.Font
.Color = 2
End With
ActiveCell.Offset(-1, 0).Range("A1").Select
With Selection.Borders(xlEdgeBottom)
.Weight = xlThin
.Color = vbBlack
End With
With Selection.Interior
.Color = RGB(255, 255, 255)
End With
ActiveCell.Offset(7, 0).Range("A1").Select
With Selection.Borders(xlEdgeTop)
.Weight = xlThin
.Color = vbBlack
End With
End If
End Sub
