Blinking Text
Under ThisWorkbook
Private Sub Workbook_Open()
StartBlinking
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
StopBlinking
End Sub
Under Sheet1 "General"
Sub StartBlinking()
Sequence = Now + TimeSerial(0, 0, 1)
Worksheets("Sheet1").Range("x8").Calculate
Application.OnTime Sequence, "StartBlinking"
End Sub
Sub StopBlinking()
On Error Resume Next
Application.OnTime Sequence, "StartBlinking", Schedule:=False
End Sub
This in "immediate" window now
Application.EnableEvents = True
No other macros in workbook
HTH
Esra
On Thu, 14 Feb 2008 18:51:09 -0600, Dave Peterson
wrote:
It's time to post your macros.
What's Under the ThisWorkbook module?
What's under each (and every) general module?
Esra Dekan wrote:
Well, that doesnt work either.
I put it in there, then saved it, opened it up again, and it opened
the VBA with this error:
Compile Error:
Sub or Function not defined
Referring to this:
Private Sub Workbook_Open()
StartBlinking
End Sub
When I click off that error message, I check to see if the "immediate"
still contains that command, and although I saved it, it does not.
So, I put it back in, save again, and close the VBA and then save and
close the file, and get this message:
Compile Error:
Sub or Function not defined
Referring to this:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
StopBlinking
End Sub
So, got me stumped.
I just wont have the text blinking. It would of been nice, but not
going to all this trouble for that effect.
TY for all your help everyone.
Esra
On Thu, 14 Feb 2008 15:59:00 -0600, Dave Peterson
wrote:
Open the VBE and hit ctrl-g (or view|Immediate window)
Esra Dekan wrote:
Now I am even more confused. Im so dumb when it comes to a lot of
things in Excel.
Where is the "immediate" window in VBE?
Esra
On Thu, 07 Feb 2008 20:37:39 -0800, Gord Dibben <gorddibbATshawDOTca
wrote:
Other than send you another working copy of a workbook, I see nothing else to
help you.
Well........maybe try opening the Immediate Window from VBE and copy this in and
hit ENTER
Application.EnableEvents = True
Gord
On Fri, 08 Feb 2008 15:01:24 +1300, Esra Dekan wrote:
Yes, happens in the workbook you sent, and cell b1 is just green with
text in, not blinking.
All i get in MY workbook here, is the compile error thing. I dont
know enough to know what that even means.
The Private sub thing, I right clicked "this Workbook",,,and inserted
a module, pasted the Private Sub into there.
It must be something with my excelt surely, coz it happens on the book
you sent me,,,maybe?
:((
TIA
Esra
On Thu, 07 Feb 2008 10:06:54 -0800, Gord Dibben <gorddibbATshawDOTca
wrote:
Does this occur in the workbook I sent you?
If so, have you changed anything at all?
Was working fine when I emailed the workbook to you.
"asdfg" in B1 was blinking a green color.
I still have the original if you want it re-sent.
Gord Dibben MS Excel MVP
On Thu, 07 Feb 2008 19:26:44 +1300, Esra Dekan wrote:
Still not working,
When I open the file, it comes up saying "Compile Error. Sub or
Function Not Defined"
and goes to this macro
Private Sub Workbook_Open()
StartBlinking
End Sub
When closing does the same too, goes to the macro StopBlinking
Any help??
Esra
On Sun, 03 Feb 2008 11:46:17 -0800, Gord Dibben <gorddibbATshawDOTca
wrote:
Worked fine before I sent it to you.
Did you get a message about enabling macros when you opened the workbook I sent?
If not, your macro security is set too high and Excel automatically prevents
code from running and puts the workbook in the HelpAbout MS ExcelDisabled
Items.
Have a look there first and re-enable it then reset your security level.
ToolsOptionsSecurityMacro Security.
Set it to "Medium", OK out, then close out Excel and re-open.
Enable macros when you get the message about workbook contains macros.
Gord
On Mon, 04 Feb 2008 07:38:58 +1300, Esra Dekan wrote:
That doesnt work here either.
maybe something wrong with the program? Do I need an add=in or
something?
Esra
On Sat, 02 Feb 2008 20:10:42 -0800, Gord Dibben <gorddibbATshawDOTca
wrote:
Have sent one to you.
Gord
On Sun, 03 Feb 2008 16:18:45 +1300, Esra Dekan wrote:
Maybe by chance, could someone email me a workbook with a flashing
cell? and I should be able to work it out from there.
I just cant seem to get it for some reason.
My email address is in the message i think, minus the underscore.
I wouls appreciate it
Esra
|