Option Explicit Public Flag As Integer --------------------------------------------- Sub Test1() Flag = 0 Range("B3").Value = "A" End Sub --------------------------------------------- Sub Test2() If Range("B3") = "A" Then Flag = 1 End If End Sub --------------------------------------------- Sub Test3() If Flag = 1 Then Range("B3").Value = "B" End If End Sub --------------------------------------------- Sub Test5() If Flag = 1 Then Range("B3").Value = "C" End If End Sub