اريد عمل وميض او صوت للخليه عندما تكون 99

[royal2a]

اخواني

اريد عمل صوت او وميض فلاش للخليه عندما يكون مقدارها 99

كيف ممكن عمل ذلك

[royal2a]

هذا المثال الموجود لدي ولكنه لا يعمل

Public appTime As Date

Public Sub Blink()

If Sheets(1).Range("A1") = 99 Then

With ColorIndex = 2

.ColorIndex = 4

End With

appTime = Now() + TimeValue("00:00:01")

Application.OnTime appTime, "Blink"

End If

End Sub

[abo yasser]

هذا المثال الموجود لدي ولكنه لا يعمل

???????????????????????????????????????????????????????????

[halwim]

لا نعرف لماذا لايعمل .... الرجاء من لديه الحل