Unhide & copy on double click

[adamsm]

I'm trying to make the following code to un-hide row 12, copy the value in cell D17 if the cell I10 is empty and then change the value in D17 by 1.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
Application.ScreenUpdating = False
    If Target.Address(False, False) = "I11" Then
    Cancel = True
    Rows(12).Hidden = False
Target.Copy
Range("I10").PasteSpecial Paste:=xlPasteValues
 End If
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

How could I do the needful?

Any help would be kindly appreciated.

 

[stnkynts]

Try:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
If Target.Address = "$I$11" Then
    Rows(12).EntireRow.Hidden = False
    If IsEmpty(Range("I10")) Then
        Range("I10").Value = Range("D17").Value
        Range("D17").Value = Range("D17").Value + 1
    End If
End If
 
End Sub

 

[adamsm]

Thanks for the help. I do really appreciate it.