Update Formula.vb

Vitosh · Aug 17, 2017 · 40d8424 · 40d8424
1 parent 36dcfda
commit 40d8424
Showing 1 changed file with 16 additions and 0 deletions.
diff --git a/Formula.vb b/Formula.vb
@@ -12,3 +12,19 @@ Public Sub PrintMeUsefulFormula()
     Debug.Print strFormula
 
 End Sub
+
+'A bit untested, use with caution --------v
+Public Sub PrintMeUsefulFormat()
+
+    Dim strFormula  As String
+    Dim strParenth  As String
+
+    strParenth = """"
+
+    strFormula = Selection.NumberFormat
+    strFormula = Replace(strFormula, """", """""")
+
+    strFormula = strParenth & strFormula & strParenth
+    Debug.Print strFormula
+
+End Sub