Info in Statusleiste
Stefan
wer kann mir mal kurz helfen...
Möchte gerne in die Statusleiste einen Text eingeben & alle Tabellenblätternamen die mit "Diff"
beginnen.
For Each wks In ActiveWorkbook.Worksheets
If Left(wks.Name, 4) = "Diff" Then
wksDiff.Name ?
next
Application.StatusBar = "Bitte folgende Tabellen manuell checken und danach löschen: " & ?
Wer kann mir da weiterhelfen, da mein VBA sehr sehr dürftig ist...
:-)
Stefan
P.S. Würde auch gerne die Hänger/Laschen alle Tabellenblätter die mit "Diff" beginnen rot färben ist so was möglich ?