snb
Verenigingslid
- Lid geworden
- 12 jun 2008
- Berichten
- 20.220
Code:
Private Sub Worksheet_BeforedoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row > 3 Then
On Error Resume Next
With Cells(Target.Row, 3)
.AddComment
.Comment.Text Join(Application.Transpose(Application.Transpose(.Offset(, 4).Resize(, 20).SpecialCells(2))), vbLf)
.Comment.Shape.TextFrame.AutoSize = True
End With
Cancel = True
End If
End Sub