Compile error - Procedure too large. Code assistance needed.

[ChristopherB111]

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 Target.Address = "$BB$4" Then
Shapes("A 1").Height = Target.Value * Range("BA159")
End If
If Target.Address = "$BA$5" Then
Shapes("A 2").Width = Target.Value * Range("BA157")
End If
If Target.Address = "$BB$5" Then Shapes("A 2").Height = Target.Value * Range("BA159")
End If
If Targ.........


Its for 150 Shapes (staring from "A 1"):

Column Range from BA4 to BA153 * Cell BA157 will give Width value for each Shape

And

Column Range from BB4 to BB153 * Cell BA159 will give Height value for each Shape.

Thanks,

Chris.

 

[Fluff]

Cross posted https://www.excelforum.com/excel-pr...ice-need-help-to-break-down-code-smaller.html

Cross-Posting
While we do not prohibit Cross-Posting on this site, we do ask that you please mention you are doing so and provide links in each of the threads pointing to the other thread (see rule 13 here along with the explanation: Forum Rules).
This way, other members can see what has already been done in regards to a question, and do not waste time working on a question that may already be answered.

 

[ChristopherB111]

Apologies. I thought the cross post meant in same website forum. Just trying to get this Code resolved so decided to look for extra assistance.