Microsoft Office Forums - View Single Post - [Solved] enter a constant based on entered number

gmaxey · 10-17-2014, 05:29 AM

Code:

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Select Case CDbl(Left(ActiveDocument.Tables(1).Cell(1, 1).Range.Text, Len(ActiveDocument.Tables(1).Cell(1, 1).Range.Text) - 2))
  Case 98
    MsgBox 100 / 3.3
  Case 97.5
    MsgBox 100 / 3
  Case 20
    MsgBox 100 / 0.47
  Case Else
    MsgBox 100
End Select
End Sub