Code:If UCase(Left(Target_Name, 6)) = "N-SIDE" Then myColor = 65535 ElseIf UCase(Left(Target_Name, 3)) = "ADD" Then myColor = 13353215 'Pink Else myColor = 4050606 End If
Code:If UCase(Left(Target_Name, 6)) = "N-SIDE" Then myColor = 65535 ElseIf UCase(Left(Target_Name, 3)) = "ADD" Then myColor = 13353215 'Pink Else myColor = 4050606 End If
Cheers !
Excel Range to BBCode Table
Use Social Networking Tools If You Like the Answers !
Message to Cross Posters
@ Home - Office 2010/2013/2016 on Win 10 (64 bit); @ Work - Office 2016 on Win 10 (64 bit)
Posting Permissions
Reply With Quote
Bookmarks