lior03
12-25-2007, 01:25 AM
hello
occasionally i color certain cells that meet a certain criteria red.i built the following macro that 5 seconds later will ask me whether i want to restore black color to this cells.i noticed that he repeates asking me for each cell separtely.how can i make it do it once no matter how many cells are involved?
Sub aab()
Application.OnTime Now + TimeValue("00:00:05"), "msgd1"
End Sub
Sub msgd1()
If MsgBox("shall i restore black in red cells ?", vbYesNo + vbInformation, "turn color?") = vbYes Then
selection.Font.ColorIndex = 1
End If
End Sub
thanks
occasionally i color certain cells that meet a certain criteria red.i built the following macro that 5 seconds later will ask me whether i want to restore black color to this cells.i noticed that he repeates asking me for each cell separtely.how can i make it do it once no matter how many cells are involved?
Sub aab()
Application.OnTime Now + TimeValue("00:00:05"), "msgd1"
End Sub
Sub msgd1()
If MsgBox("shall i restore black in red cells ?", vbYesNo + vbInformation, "turn color?") = vbYes Then
selection.Font.ColorIndex = 1
End If
End Sub
thanks