tammyl
04-03-2011, 12:08 AM
Hi,
I created a macro to Propercase text in an active cell when i double-click. Since then i have lost the ability to follow formulas when double-click in the cell.
How can i get this functionality back.
Following is my vba for propercase
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Intersect(ActiveCell, Range("B11:B50"), Target) Is Nothing Then
'Exit Sub
'Cancel = True
Application.EnableEvents = True
Else
ActiveCell.Value = StrConv(ActiveCell.Value, vbProperCase)
Application.EnableEvents = True
End If
End Sub
Hope someone can assist.
Thanks
Tammyl
I created a macro to Propercase text in an active cell when i double-click. Since then i have lost the ability to follow formulas when double-click in the cell.
How can i get this functionality back.
Following is my vba for propercase
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Intersect(ActiveCell, Range("B11:B50"), Target) Is Nothing Then
'Exit Sub
'Cancel = True
Application.EnableEvents = True
Else
ActiveCell.Value = StrConv(ActiveCell.Value, vbProperCase)
Application.EnableEvents = True
End If
End Sub
Hope someone can assist.
Thanks
Tammyl