Event macro

  • Thread starter Thread starter David McRitchie
  • Start date Start date
D

David McRitchie

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
 
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.
 
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.
 
Back
Top