Assistance needed to break this Code down to a smaller version as I am getting a Compile Error - Procedure too large.
Current Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$BA$4" Then
Shapes("A 1").Width = Target.Value * Range("BA157")
End If
If...