ipbr21054
Well-known Member
- Joined
- Nov 16, 2010
- Messages
- 5,596
- Office Version
- 2007
- Platform
- Windows
Hi,
I have in use the code below,
I wish to have the cells white & all borders.
I recorded a macro & added it into the code above but i receive a error message saying not supported,so like usual i messed up.
How would i then add it in correctly if i may ask,
Thanks
I have in use the code below,
Code:
With Worksheets("NEW CARS").Sort .SetRange Range("A1:S42")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Application.CutCopyMode = False
Call OWNERS_DETAILS
End Sub
I wish to have the cells white & all borders.
I recorded a macro & added it into the code above but i receive a error message saying not supported,so like usual i messed up.
How would i then add it in correctly if i may ask,
Code:
With Worksheets("NEW CARS").Sort .SetRange Range("A1:S42")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
. Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
.PatternTintAndShade = 0
.Apply
End With
Application.CutCopyMode = False
Call OWNERS_DETAILS
End Sub
Thanks