changing cell on active sheet does not cause code to continue - No error codes either

Can anyone solve this riddle for me? Why when I change the cell's value in $E$31 on the active sheet does it not continue to work in the "Shop Order" sheet?

I do not have much experience (yet) with VBA so please be gentle.

I really appreciate the wealth of resources that are found on this forum.

Thanks in advance.

Private Sub Worksheet_Change(ByVal Target As Range)


If Target.Address = "$E$31" Then


With Sheets("Shop Order")

'  The following code works with page 2 of the shop order worksheet specifically with System B.


      
'In this first if statement, it is assumed that system B will not be in use at all.

     If Range("A73") = "" Then
    
     Range("B71:O75").Borders.LineStyle = 0              'this comment clears out all boxes for system B
    
   
     End If
     
'the following code creates one thick outline box because this carriage will have only one section.

    
        If Range("A73") <> "" And Range("I46") >= 1 Then
        
    Range("E72:N74").Borders.LineStyle = 0              'this comment clears out all boxes for system B after the first carriage box
         
    Range("C72:D74").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    
   
    
        End If

Here you go:


SampleWorkbook.xlsm

Actually I did:

Can anyone solve this riddle for me? Why when I change the cell's value in $E$31 on the active sheet does it not continue to work in the "Shop Order" sheet?

I need help overcoming why this code is not running in the way I am expecting. I am expecting it to continue (as per code) to Shop Order Sheet in order to draw the appropriate amount of boxes, in this sample case - 1 box.

What I mean, as an alternative, is simply on sheet1 write a basic procedure :

Private Sub Worksheet_Change(ByVal Target As Range)


If Target.Address = "$E$31" Then

call mymacro                          'and this macro will actually be the code that you see creating the boxes with borders behind sheet2 ("Shop Orders")



End If

End Sub

I hope this helps and thank you again.

Unfortunately, this does not seem to be doing anything:

Sub AddBorders()

        With Sheets("Shop Order")

        '  The following code works with page 2 of the shop order worksheet specifically with System B.
      
        '  In this first if statement, it is assumed that system B will not be in use at all.

            If .Range("A73") = "" Then
    
                .Range("C72:N74").Borders.LineStyle = 0              'this comment clears out all boxes for system B
    
            End If
     
        '  the following code creates one thick outline box because this carriage will have only one section.

    
            If .Range("A73") <> "" And Range("I46") = 1 Then
        
                .Range("E72:N74").Borders.LineStyle = 0           '  This line clears out all boxes for system B after the first carriage box
         
                With .Range("C72:D74")                            '  This line draws in 1 thick border box spanning two columns and three rows.
            
                 '  Remove all diagonal borders
                    .Borders(5).LineStyle = xlNone
                    .Borders(6).LineStyle = xlNone
                    .Borders(11).LineStyle = xlNone
                    .Borders(12).LineStyle = xlNone
                
                 '  Add borders around each cell
                    For i = 7 To 10
                        With .Borders(i)
                            .LineStyle = xlContinuous
                            .ColorIndex = 0
                            .TintAndShade = 0
                            .Weight = xlMedium
                        End With
                    Next i
                
                End With
        
            End If
            
        End With

End Sub

The above is in Module 3 and below is behind sheet1:

Private Sub Worksheet_Change(ByVal Target As Range)


If Target.Address = "$E$31" Then

    Call AddBorders                          'and this macro will actually be the code that you see creating the boxes with borders for sheet2 ("Shop Orders")

End If

End Sub

You know , I think I just worked it out. It did not seem to like the reference to I46 as it is a calc reference from sheet 1 $E$31. when I pointed it to E31 on sheet 1, it started to work. Standby however, I need to extrapolate this code and make sure I can pull it off for up to 6 carriage boxes.

Sub AddBorders()

        With Sheets("Shop Order")

        '  The following code works with page 2 of the shop order worksheet specifically with System B.
      
        '  In this first if statement, it is assumed that system B will not be in use at all.

            If .Range("A73") = "" Then
    
                .Range("C72:N74").Borders.LineStyle = 0              'this comment clears out all boxes for system B
    
            End If
     
        '  the following code creates one thick outline box because this carriage will have only one section.

    
            If .Range("A73") <> "" And Sheets("Start - User Inputs").Range("$E$31") = 1 Then
        
                .Range("E72:N74").Borders.LineStyle = 0           '  This line clears out all boxes for system B after the first carriage box
         
                With .Range("C72:D74")                            '  This line draws in 1 thick border box spanning two columns and three rows.
            
                 '  Remove all diagonal borders
                    .Borders(5).LineStyle = xlNone
                    .Borders(6).LineStyle = xlNone
                    .Borders(11).LineStyle = xlNone
                    .Borders(12).LineStyle = xlNone
                
                 '  Add borders around each cell
                    For i = 7 To 10
                        With .Borders(i)
                            .LineStyle = xlContinuous
                            .ColorIndex = 0
                            .TintAndShade = 0
                            .Weight = xlMedium
                        End With
                    Next i
                
                End With
        
            End If
            
        End With

End Sub

Thank you for teaching me VBA code.