intial

Sheet3.cls

@@ -0,0 +1,22 @@
+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
+
+
+