Hi Folks!

Just "tinkering" around. How do you keep from going into edit mode on a
before double click event?

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)

Dim myHeight As Double
Application.EnableEvents = False
On Error GoTo sub_exit
If Not Intersect(Target, Range("A1:A100")) Is Nothing Then
With Target
If .Value = "a" Then
.Value = ""
Else
myHeight = .EntireRow.RowHeight
.Value = "a"
.Font.Name = "Marlett"
.EntireRow.RowHeight = myHeight
End If
End With
End If
sub_exit:
Application.EnableEvents = True
End Sub

Biff

Set Cancel to True if your condition is followed:

Private Sub Worksheet_BeforeDoubleClick( _
ByVal Target As Range, Cancel As Boolean)

Dim myHeight As Double
Application.EnableEvents = False
On Error GoTo sub_exit
If Not Intersect(Target, Range("A1:A100")) Is Nothing Then
With Target
If .Value = "a" Then
.Value = ""
Else
myHeight = .EntireRow.RowHeight
.Value = "a"
.Font.Name = "Marlett"
.EntireRow.RowHeight = myHeight
End If
End With
Cancel = True
End If
sub_exit:
Application.EnableEvents = True
End Sub


In article <(E-Mail Removed)>,
"T. Valko" <(E-Mail Removed)> wrote:

> Hi Folks!
>
> Just "tinkering" around. How do you keep from going into edit mode on a
> before double click event?
>
> Option Explicit
>
> Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
> Boolean)
>
> Dim myHeight As Double
> Application.EnableEvents = False
> On Error GoTo sub_exit
> If Not Intersect(Target, Range("A1:A100")) Is Nothing Then
> With Target
> If .Value = "a" Then
> .Value = ""
> Else
> myHeight = .EntireRow.RowHeight
> .Value = "a"
> .Font.Name = "Marlett"
> .EntireRow.RowHeight = myHeight
> End If
> End With
> End If
> sub_exit:
> Application.EnableEvents = True
> End Sub
>
> Biff

Thanks, JE!

Biff

"JE McGimpsey" <(E-Mail Removed)> wrote in message
news:jemcgimpsey-(E-Mail Removed)...
> Set Cancel to True if your condition is followed:
>
> Private Sub Worksheet_BeforeDoubleClick( _
> ByVal Target As Range, Cancel As Boolean)
>
> Dim myHeight As Double
> Application.EnableEvents = False
> On Error GoTo sub_exit
> If Not Intersect(Target, Range("A1:A100")) Is Nothing Then
> With Target
> If .Value = "a" Then
> .Value = ""
> Else
> myHeight = .EntireRow.RowHeight
> .Value = "a"
> .Font.Name = "Marlett"
> .EntireRow.RowHeight = myHeight
> End If
> End With
> Cancel = True
> End If
> sub_exit:
> Application.EnableEvents = True
> End Sub
>
>
> In article <(E-Mail Removed)>,
> "T. Valko" <(E-Mail Removed)> wrote:
>
>> Hi Folks!
>>
>> Just "tinkering" around. How do you keep from going into edit mode on a
>> before double click event?
>>
>> Option Explicit
>>
>> Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
>> Boolean)
>>
>> Dim myHeight As Double
>> Application.EnableEvents = False
>> On Error GoTo sub_exit
>> If Not Intersect(Target, Range("A1:A100")) Is Nothing Then
>> With Target
>> If .Value = "a" Then
>> .Value = ""
>> Else
>> myHeight = .EntireRow.RowHeight
>> .Value = "a"
>> .Font.Name = "Marlett"
>> .EntireRow.RowHeight = myHeight
>> End If
>> End With
>> End If
>> sub_exit:
>> Application.EnableEvents = True
>> End Sub
>>
>> Biff