Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim sheetName As String
    Dim mainMacroName As String
    'Dim macroName As String
    ' When any cell is double clicked in column b it will trigger the macro for 8oz update
    sheetName = ActiveSheet.Name
    
    mainMacroName = "'PERSONAL.XLSB'!psi_update_v2.psiUpdate8oz10oz"
    
    On Error Resume Next
        If Target.Column = 2 Then
            Application.Run mainMacroName, Target.Value, Target.Row, sheetName
        End If
        If Err.Number <> 0 Then
            msgbox "It seems you do not have the macro installed, please reach out to regional support to get this activated on your computer.", vbExclamation
            Err.Clear
        End If
    On Error GoTo 0
End Sub



