Compile Error: Procedure too large

Hi Forum,

After adding some additional code to a change procedure on a userform, I'm getting a "Compile Error: Procedure too large". I realize this is due to the single procedure exceeding the 64kb size limit, however I'm unsure what the best way to split apart the procedure or reduce redundancy within the procedure to reduce the size. The procedure code in question is attached below as a .docx (due to the size of the procedure). Basically I have a dropdown list containing study ID's. Based on what is chosen in the dropdown list, the rest of the variables throughout the userform are populated with the corresponding data. Please let me know if you have any suggestions! Thanks!!

cboStudyID_Change().docx

Hey Special-K,

Thanks for checking in & sorry about the "file corrupt" error. Try this file Private Sub cboStudyID.docx

Originally Posted by shg

You could set a range variable:

Set r = Range("StudyID")

Thanks, shg! I just went through and edited my code... It's now running without error! I appreciate your help!!

Novice.

Some advice how to break this down please:

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


Thanks.