Event macro

David McRitchie

unread,

Jul 15, 2003, 9:57:19 AM7/15/03

to

One annoyance I have with Event macros is that I have to select
another cell afterwards so that I can work in the VBE to make
changes to the macro. Even if I exit out of IE after invoking
the following Event macro, I still have to select a cell so that
I can edit the macro. Is there a way around this?

You can test the following by double-clicking on either
of the following cells, and then trying to edit the event macro.

A2: userid.htm
A3: strings.htm

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim filename As String, IEpath As String
Dim RetVal As Long
IEpath = "C:\program files\internet explorer\iexplore.exe"
If ActiveCell.Column = 1 Then
If Right(LCase(ActiveCell.Value), 4) = ".htm" Then
filename = "http://www.mvps.org/dmcritchie/excel/" _
& Trim(ActiveCell.Value)
Shell IEpath & " " & filename, vbNormalFocus
End If
End If
End Sub

---
HTH,
David McRitchie, Microsoft MVP - Excel [site changed Nov. 2001]
My Excel Pages: http://www.mvps.org/dmcritchie/excel/excel.htm
Search Page: http://www.mvps.org/dmcritchie/excel/search.htm

Dick Kusleika

unread,

Jul 15, 2003, 2:17:47 PM7/15/03

to

David

You could uncheck Tools - Options - Edit Directly in Cells. I would think
that you could do that programmatically, but it doesn't appear to work. The
event says BEFORE double click, but I don't think that's entirely accurate.

--
Dick Kusleika
MVP - Excel
www.dicks-clicks.com
Post all replies to the newsgroup.

"David McRitchie" <dmcri...@msn.com> wrote in message
news:OHOL5ktS...@TK2MSFTNGP10.phx.gbl...

Dave Peterson

unread,

Jul 15, 2003, 10:05:50 PM7/15/03

to

Try adding

Cancel = true

At the end of your macro. This says not to stay in the cell to try to edit it.
(won't hurt if you have edit directly in cells on or off.)

--

Dave Peterson
ec3...@msn.com

David McRitchie

unread,

Jul 16, 2003, 1:20:12 PM7/16/03

to

Hi Dave,
Thanks that works, and completely solves the problem.
I'll have to think of Cancel = True in terms of being
done with editing a cell rather than just something thrown in to turn
off the normal right-click (context) menu when doing my own
right-click Event macros.. .

I placed it just before my invocation of Internet Explorer , which
is after the last use of the activecell.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _

Cancel As Boolean) Dim filename As String, IEpath As String
Dim filename As String, IEpath As String

IEpath = "C:\program files\internet explorer\iexplore.exe"
If ActiveCell.Column = 1 Then
If Right(LCase(ActiveCell.Value), 4) = ".htm" Then

filename = "c:\website\dmcritchie\excel\" _
& Trim(ActiveCell.Value)
Cancel = True '--no need or further need to edit cell

Shell IEpath & " " & filename, vbNormalFocus
End If

ElseIf ...[clipped]

Full coverage on my "Fix 404, Page Not Found, Link Errors"
http://www.mvps.org/dmcritchie/excel/fix404.htm

I'll have to write a note to myself about subject title not being very
descriptive.
---
HTH, (full coverage on my fix404.htm page)

David McRitchie, Microsoft MVP - Excel [site changed Nov. 2001]
My Excel Pages: http://www.mvps.org/dmcritchie/excel/excel.htm
Search Page: http://www.mvps.org/dmcritchie/excel/search.htm

"Dave Peterson" <ec3...@msn.com> wrote ..