timmsteven
10-30-2018, 08:30 AM
Hi All
I'm not sure whether I'm doing this right but I'm after a bit of help
I've come across a bit of code (pasted below) that works perfect when pasted into Sheet1 on each excel file. I wanted to be able to use this code on ever workbook I use so I tried pasting it into a blank module in the personal.xlsb workbook but when I try double clicking on cell nothing happens, I'm hoping someone can point out where I'm going wrong
Many Thanks
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True 'Eliminate Edit status due to doubleclick
Target.Offset(1).EntireRow.Insert
Target.EntireRow.Copy Target.Offset(1).EntireRow
On Error Resume Next
Target.Offset(1).EntireRow.SpecialCells(xlConstants).ClearContents
On Error GoTo 0
End Sub
I'm not sure whether I'm doing this right but I'm after a bit of help
I've come across a bit of code (pasted below) that works perfect when pasted into Sheet1 on each excel file. I wanted to be able to use this code on ever workbook I use so I tried pasting it into a blank module in the personal.xlsb workbook but when I try double clicking on cell nothing happens, I'm hoping someone can point out where I'm going wrong
Many Thanks
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True 'Eliminate Edit status due to doubleclick
Target.Offset(1).EntireRow.Insert
Target.EntireRow.Copy Target.Offset(1).EntireRow
On Error Resume Next
Target.Offset(1).EntireRow.SpecialCells(xlConstants).ClearContents
On Error GoTo 0
End Sub