Add the following function to the workbook object macros - unprotect equipment request sheet "strawberry", 
select a botton on it and right click to assign macro - edit a macro and then "view code" on this workbook.  
Paste the functions below into the workbook at the bottom and save it
At the top add these definitions

Private Const Workflow_PP_Ready = 3
Private Const Workflow_PP_Applied = 4
Private Const Workflow_PP_StartRow = 5
Private Const Workflow_PP_EndRow = 6
Private Const Workflow_PP_Cases_Col = 2
Private Const Workflow_PP_UPC_Col = 3
Private Const Workflow_PP_Description_Col = 4
Private Const Workflow_PP_UOM_Col = 5

need to add a workflow tab and hide it
no tabs for approval if they are in the sheet when they give it back after edits. 

Private Sub Apply_Workflow()
    
    Dim PP_Ready As Boolean
    Dim PP_Applied As Boolean
    Dim PP_StartRow As Integer
    Dim PP_EndRow As Integer
    Dim PP_Row As Integer
    
    Dim PP_Cases As String
    Dim PP_UPC As String
    Dim PP_Description As String
    Dim PP_UOM As String
    
    
    PP_Ready = Worksheets("Workflow").Cells(Workflow_PP_Ready, 2)
    PP_Applied = Worksheets("Workflow").Cells(Workflow_PP_Applied, 2)
    PP_StartRow = Worksheets("Workflow").Cells(Workflow_PP_StartRow, 2)
    PP_EndRow = Worksheets("Workflow").Cells(Workflow_PP_EndRow, 2)
    
    If PP_Ready = True And PP_Applied = False Then
        Rem Loop through PP and Call Add_CID
        Application.Run "ERF.Unprotect_Sheet", "Workflow"
    
    
        For PP_Row = PP_StartRow To PP_EndRow
            
            PP_Cases = Worksheets("Workflow").Cells(PP_Row, Workflow_PP_Cases_Col)
            PP_UPC = Worksheets("Workflow").Cells(PP_Row, Workflow_PP_UPC_Col)
            PP_Description = Worksheets("Workflow").Cells(PP_Row, Workflow_PP_Description_Col)
            PP_UOM = Worksheets("Workflow").Cells(PP_Row, Workflow_PP_UOM_Col)
            
            Add_CID PP_Cases, PP_UPC, PP_Description, PP_UOM
        
        Next PP_Row
        
    
        Rem mark it applied so it doesn't happen again
        Worksheets("Workflow").Cells(Workflow_PP_Applied, 2) = True
        
        Application.Run "ERF.Protect_Sheet", "Workflow"
        
    End If

End Sub


Private Sub Workbook_Open()

    Rem Apply workflow
    Apply_Workflow
    
    Rem Recalculate the full workbook
    Application.CalculateFull

End Sub