Code voor alle tabbladen

[Roncancio]

Onderstaande code voor ThisWorkbook controleert of de naam van het huidige werkblad lager is dan 53. Zo ja dan wordt het de cel weer zwartgemaakt bij het dubbelklikken.
Is de naam hoger dan 53 of betreft het tekst, dan gebeurt er niets.

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If ActiveSheet.Name <= 53 Then
    ActiveCell.Insert
    Target.Offset(-1, 0).Interior.Color = vbBlack
End If
End Sub

Met vriendelijke groet,


Roncancio

 

[don42]

Je zet in 2 regels alles in elkaar wat ik nodig heb
een woord:
top:thumb: