Workbook_SheetBeforeRightClick
05.12.2003 16:32:46
Lorenz
Der folgende Code ist etwas lang!
Wie kann man in kürzer schreiben?
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Sh.Name = "1." Or Sh.Name = "2." Or Sh.Name = "3." Or Sh.Name = "4." Or Sh.Name = "5." _
Or Sh.Name = "6." Or Sh.Name = "7." Or Sh.Name = "8." Or Sh.Name = "9." Or Sh.Name = "10." _
Or Sh.Name = "11." Or Sh.Name = "12." Or Sh.Name = "13." Or Sh.Name = "14." Or Sh.Name = "15." _
Or Sh.Name = "16." Or Sh.Name = "17." Or Sh.Name = "18." Or Sh.Name = "19." Or Sh.Name = "20." _
Or Sh.Name = "21." Or Sh.Name = "22." Or Sh.Name = "23." Or Sh.Name = "24." Or Sh.Name = "25." _
Or Sh.Name = "26." Or Sh.Name = "27." Or Sh.Name = "28." Or Sh.Name = "29." Or Sh.Name = "30." _
Or Sh.Name = "31." Then
call Sub
End Sub
Grüße Lorenz K.