Public Sub Reset_All_Shapes()
Dim sht As Worksheet
Dim rng As Range
Dim FrwD As Long
'---------------------------------------------------------
'NOTE;
'RR = Rounded Rectangle shape
'SC = Straight Connector shape
'SAC = Straight Arrow Connector shape
'Rect = Rectangle shape
'---------------------------------------------------------
Set sht = ThisWorkbook.ActiveSheet
Set rng = Range("AK:AK").Find(What:="Paid To", LookIn:=xlValues, LookAt:=xlWhole)
FrwD = rng.Row
Application.ScreenUpdating = False
Application.EnableEvents = False
'----------------------------------------------------------
'### Get Used range area on the sheet
'Pink fill
Range("AZ" & FrwD + 94 & ":CC" & FrwD + 99).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 14281213
.TintAndShade = 0
.PatternTintAndShade = 0
End With
ActiveSheet.Shapes("RR 102").Fill.ForeColor.RGB = RGB(255, 0, 0)
ActiveSheet.Shapes("SAC 103").line.ForeColor.RGB = RGB(217, 217, 217)
ActiveSheet.Shapes("RR 17").Fill.ForeColor.RGB = RGB(161, 161, 161)
'----------------------------------------------------
'### Select Sub To Run area on the sheet
'Pink fill
Range("AZ" & FrwD + 65 & ":CC" & FrwD + 92).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 14281213
.TintAndShade = 0
.PatternTintAndShade = 0
End With
ActiveSheet.Shapes("RR 170").Fill.ForeColor.RGB = RGB(255, 0, 0)
ActiveSheet.Shapes("SAC 171").line.ForeColor.RGB = RGB(217, 217, 217)
ActiveSheet.Shapes("RR 169").Fill.ForeColor.RGB = RGB(161, 161, 161)
ActiveSheet.Shapes("SAC 172").line.ForeColor.RGB = RGB(217, 217, 217)
ActiveSheet.Shapes("RR 168").Fill.ForeColor.RGB = RGB(161, 161, 161)
ActiveSheet.Shapes("SAC 178").line.ForeColor.RGB = RGB(217, 217, 217)
ActiveSheet.Shapes("RR 173").Fill.ForeColor.RGB = RGB(161, 161, 161)
ActiveSheet.Shapes("SAC 176").line.ForeColor.RGB = RGB(217, 217, 217)
ActiveSheet.Shapes("RR 174").Fill.ForeColor.RGB = RGB(161, 161, 161)
ActiveSheet.Shapes("SAC 177").line.ForeColor.RGB = RGB(217, 217, 217)
ActiveSheet.Shapes("RR 175").Fill.ForeColor.RGB = RGB(161, 161, 161)
ActiveSheet.Shapes("SC 179").line.ForeColor.RGB = RGB(217, 217, 217)
ActiveSheet.Shapes("SC 180").line.ForeColor.RGB = RGB(217, 217, 217)
ActiveSheet.Shapes("SC 181").line.ForeColor.RGB = RGB(217, 217, 217)
'Coming down Left side
ActiveSheet.Shapes("SC 119").line.ForeColor.RGB = RGB(217, 217, 217)
ActiveSheet.Shapes("SAC 120").line.ForeColor.RGB = RGB(217, 217, 217)
ActiveSheet.Shapes("RR 117").Fill.ForeColor.RGB = RGB(161, 161, 161)
ActiveSheet.Shapes("SC 129").line.ForeColor.RGB = RGB(217, 217, 217)
ActiveSheet.Shapes("SC 125").line.ForeColor.RGB = RGB(217, 217, 217)
ActiveSheet.Shapes("SC 122").line.ForeColor.RGB = RGB(217, 217, 217)
ActiveSheet.Shapes("SC 115").line.ForeColor.RGB = RGB(217, 217, 217)
ActiveSheet.Shapes("SAC 123").line.ForeColor.RGB = RGB(217, 217, 217)
ActiveSheet.Shapes("RR 124").Fill.ForeColor.RGB = RGB(161, 161, 161)
'SC179, SC180, SC181 already greyed
ActiveSheet.Shapes("SC 114").line.ForeColor.RGB = RGB(217, 217, 217)
ActiveSheet.Shapes("SAC 121").line.ForeColor.RGB = RGB(217, 217, 217)
ActiveSheet.Shapes("RR 118").Fill.ForeColor.RGB = RGB(161, 161, 161)
ActiveSheet.Shapes("SC 128").line.ForeColor.RGB = RGB(217, 217, 217)
'SC115, SAC123, RR124 already greyed
ActiveSheet.Shapes("SC 126").line.ForeColor.RGB = RGB(217, 217, 217)
ActiveSheet.Shapes("SC 127").line.ForeColor.RGB = RGB(217, 217, 217)
ActiveSheet.Shapes("RR 76").Visible = False
ActiveSheet.Shapes("RR 160").Visible = False
ActiveSheet.Shapes("RR 162").Visible = False
'------------------------------------------------------
'### Validation List area on the sheet
'Pink fill
Range("AZ" & FrwD + 2 & ":CC" & FrwD + 63).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 14281213
.TintAndShade = 0
.PatternTintAndShade = 0
End With
ActiveSheet.Shapes("RR 194").Fill.ForeColor.RGB = RGB(250, 0, 0)
ActiveSheet.Shapes("SAC 206").line.ForeColor.RGB = RGB(217, 217, 217)
ActiveSheet.Shapes("RR 133").Fill.ForeColor.RGB = RGB(161, 161, 161)
ActiveSheet.Shapes("SAC 215").line.ForeColor.RGB = RGB(217, 217, 217)
ActiveSheet.Shapes("RR 212").Fill.ForeColor.RGB = RGB(161, 161, 161)
ActiveSheet.Shapes("SAC 210").line.ForeColor.RGB = RGB(217, 217, 217)
ActiveSheet.Shapes("RR 130").Fill.ForeColor.RGB = RGB(161, 161, 161)
ActiveSheet.Shapes("SAC 112").line.ForeColor.RGB = RGB(217, 217, 217)
ActiveSheet.Shapes("RR 131").Fill.ForeColor.RGB = RGB(161, 161, 161)
ActiveSheet.Shapes("SAC 111").line.ForeColor.RGB = RGB(217, 217, 217)
ActiveSheet.Shapes("RR 132").Fill.ForeColor.RGB = RGB(161, 161, 161)
ActiveSheet.Shapes("SAC 107").line.ForeColor.RGB = RGB(217, 217, 217)
ActiveSheet.Shapes("RR 129").Fill.ForeColor.RGB = RGB(161, 161, 161)
ActiveSheet.Shapes("SAC 108").line.ForeColor.RGB = RGB(217, 217, 217)
ActiveSheet.Shapes("RR 109").Fill.ForeColor.RGB = RGB(161, 161, 161)
ActiveSheet.Shapes("SAC 134").line.ForeColor.RGB = RGB(217, 217, 217)
ActiveSheet.Shapes("RR 110").Fill.ForeColor.RGB = RGB(161, 161, 161)
ActiveSheet.Shapes("SC 153").line.ForeColor.RGB = RGB(217, 217, 217)
ActiveSheet.Shapes("SAC 135").line.ForeColor.RGB = RGB(217, 217, 217)
ActiveSheet.Shapes("SC 165").line.ForeColor.RGB = RGB(217, 217, 217)
ActiveSheet.Shapes("SC 219").line.ForeColor.RGB = RGB(217, 217, 217)
ActiveSheet.Shapes("SAC 217").line.ForeColor.RGB = RGB(217, 217, 217)
ActiveSheet.Shapes("SAC 223").line.ForeColor.RGB = RGB(217, 217, 217)
ActiveSheet.Shapes("SC 183").line.ForeColor.RGB = RGB(217, 217, 217)
ActiveSheet.Shapes("SC 106").line.ForeColor.RGB = RGB(217, 217, 217)
'### This section is coming down the LEFT side from SC106
ActiveSheet.Shapes("SC 104").line.ForeColor.RGB = RGB(217, 217, 217)
ActiveSheet.Shapes("SAC 167").line.ForeColor.RGB = RGB(217, 217, 217)
ActiveSheet.Shapes("SAC 114").line.ForeColor.RGB = RGB(217, 217, 217)
ActiveSheet.Shapes("RR 136").Fill.ForeColor.RGB = RGB(161, 161, 161)
ActiveSheet.Shapes("SAC 142").line.ForeColor.RGB = RGB(217, 217, 217)
ActiveSheet.Shapes("SAC 145").line.ForeColor.RGB = RGB(217, 217, 217)
ActiveSheet.Shapes("RR 139").Fill.ForeColor.RGB = RGB(161, 161, 161)
ActiveSheet.Shapes("SAC 150").line.ForeColor.RGB = RGB(217, 217, 217)
ActiveSheet.Shapes("RR 138").Fill.ForeColor.RGB = RGB(161, 161, 161)
ActiveSheet.Shapes("SC 149").line.ForeColor.RGB = RGB(217, 217, 217)
ActiveSheet.Shapes("SC 198").line.ForeColor.RGB = RGB(217, 217, 217)
ActiveSheet.Shapes("SAC 148").line.ForeColor.RGB = RGB(217, 217, 217)
ActiveSheet.Shapes("RR 146").Fill.ForeColor.RGB = RGB(161, 161, 161)
ActiveSheet.Shapes("SAC 152").line.ForeColor.RGB = RGB(217, 217, 217)
ActiveSheet.Shapes("RR 144").Fill.ForeColor.RGB = RGB(161, 161, 161)
ActiveSheet.Shapes("SAC 154").line.ForeColor.RGB = RGB(217, 217, 217)
ActiveSheet.Shapes("RR 143").Fill.ForeColor.RGB = RGB(161, 161, 161)
ActiveSheet.Shapes("SC 199").line.ForeColor.RGB = RGB(217, 217, 217)
ActiveSheet.Shapes("SAC 141").line.ForeColor.RGB = RGB(217, 217, 217)
ActiveSheet.Shapes("RR 140").Fill.ForeColor.RGB = RGB(161, 161, 161)
ActiveSheet.Shapes("SAC 151").line.ForeColor.RGB = RGB(217, 217, 217)
' RR144, SAC154, RR143 already greyed
'### This section is coming down the RIGHT side from SC106
' SAC183 already greyed
' SC106 already greyed
ActiveSheet.Shapes("SC 189").line.ForeColor.RGB = RGB(217, 217, 217)
ActiveSheet.Shapes("SAC 105").line.ForeColor.RGB = RGB(217, 217, 217)
ActiveSheet.Shapes("RR 137").Fill.ForeColor.RGB = RGB(161, 161, 161)
ActiveSheet.Shapes("SAC 100").line.ForeColor.RGB = RGB(217, 217, 217)
ActiveSheet.Shapes("SAC 157").line.ForeColor.RGB = RGB(217, 217, 217)
ActiveSheet.Shapes("SAC 158").line.ForeColor.RGB = RGB(217, 217, 217)
'## RR139, SAC150, RR138 already greyed
ActiveSheet.Shapes("SC 162").line.ForeColor.RGB = RGB(217, 217, 217)
ActiveSheet.Shapes("SC 191").line.ForeColor.RGB = RGB(217, 217, 217)
ActiveSheet.Shapes("SAC 161").line.ForeColor.RGB = RGB(217, 217, 217)
ActiveSheet.Shapes("RR 159").Fill.ForeColor.RGB = RGB(161, 161, 161)
ActiveSheet.Shapes("SAC 164").line.ForeColor.RGB = RGB(217, 217, 217)
'## RR144, SAC154, RR143 already greyed
ActiveSheet.Shapes("SC 193").line.ForeColor.RGB = RGB(217, 217, 217)
ActiveSheet.Shapes("SAC 156").line.ForeColor.RGB = RGB(217, 217, 217)
ActiveSheet.Shapes("RR 155").Fill.ForeColor.RGB = RGB(161, 161, 161)
ActiveSheet.Shapes("SAC 163").line.ForeColor.RGB = RGB(217, 217, 217)
'## RR144, SAC154, RR143 already greyed
ActiveSheet.Shapes("RR 76").Visible = False
ActiveSheet.Shapes("RR 160").Visible = False
ActiveSheet.Shapes("RR 162").Visible = False
ActiveSheet.Shapes("RR 179").Visible = False
ActiveSheet.Shapes("RR 180").Visible = False
ActiveSheet.Shapes("RR 185").Visible = False
ActiveSheet.Shapes("RR 190").Visible = False
ActiveSheet.Shapes("RR 195").Visible = False
ActiveSheet.Shapes("RR 200").Visible = False
ActiveSheet.Shapes("RR 205").Visible = False
ActiveSheet.Shapes("RR 210").Visible = False
ActiveSheet.Shapes("Rect 1").Visible = True
ActiveSheet.Shapes("Rect 2").Visible = True
ActiveSheet.Shapes("Rect 3").Visible = True
ActiveSheet.Shapes("Rect 4").Visible = True
ActiveSheet.Shapes("Rect 5").Visible = True
ActiveSheet.Shapes("Rect 6").Visible = True
ActiveSheet.Shapes("Rect 7").Visible = True
ActiveSheet.Shapes("Rect 8").Visible = True
Range("AJ" & FrwD - 9).Select
Application.Goto Selection, Scroll:=True
Range("AT" & FrwD).Select
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub