>>46
多分単語を間違えている
そのまま読むと意味が分からないところが多い

＞オブジェクトを作って動かすマクロ
これが良く分からない。オブジェクトって何のオブジェクト？

とりあえず貼り付け時に動く物はこんな感じ

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
flg = Target.Value
flg = Split(flg, ",")(2)
flg = Replace(flg, ")", "")
flg = Replace(flg, " ", "")
If flg = "25.000000" Then
Call sub_a
ElseIf flg = "0.000000" Then
Call sub_b
Else
Call sub_c
End If
On Error GoTo 0
End Sub