blewth
12-07-2016, 04:37 PM
Hi all
I have a few macros that I would like to adjust... I have inherited these macros and thus am a bit unfamiliar with how it all works, so any help would be greatly appreciated..
--------------------------------------------------------------------------------------------
Macro 1 - Blue fill
To add:
Fill color: 68 / 105 / 125
Size - 10
Font - Book Antiqua
Style - Bold
Font Color - White
Code:
With Selection.Interior
.ColorIndex = 49
.Pattern = xlSolid
End With
End Sub
Macro 2 - Grey fill
To add:
Fill color: 165 / 157 / 149
Size - 10
Font - Book Antiqua
Style - Bold
Font Color - Black
Code:
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
End With
End Sub
Macro 3 - Light brown fill
To add:
Fill Color - 225 / 222 / 174
Size - 10
Font - Book Antiqua
Style - Bold
Font Color - Black
Code:
With Selection.Interior
.ColorIndex = 19
.Pattern = xlSolid
End With
End Sub
Macro 4 - Book Antiqua font
To add:
Size - 10
Code:
With Selection.Font
.Name = "Book Antiqua"
End With
End Sub
-----------------------------------------------------------------------------------
Thank you all so much for your help
I have a few macros that I would like to adjust... I have inherited these macros and thus am a bit unfamiliar with how it all works, so any help would be greatly appreciated..
--------------------------------------------------------------------------------------------
Macro 1 - Blue fill
To add:
Fill color: 68 / 105 / 125
Size - 10
Font - Book Antiqua
Style - Bold
Font Color - White
Code:
With Selection.Interior
.ColorIndex = 49
.Pattern = xlSolid
End With
End Sub
Macro 2 - Grey fill
To add:
Fill color: 165 / 157 / 149
Size - 10
Font - Book Antiqua
Style - Bold
Font Color - Black
Code:
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
End With
End Sub
Macro 3 - Light brown fill
To add:
Fill Color - 225 / 222 / 174
Size - 10
Font - Book Antiqua
Style - Bold
Font Color - Black
Code:
With Selection.Interior
.ColorIndex = 19
.Pattern = xlSolid
End With
End Sub
Macro 4 - Book Antiqua font
To add:
Size - 10
Code:
With Selection.Font
.Name = "Book Antiqua"
End With
End Sub
-----------------------------------------------------------------------------------
Thank you all so much for your help