ich habe nachfolden Code zum Einblenden von verborgenen Zeilen im Sheet "IS", wenn im Sheet "IS" in Zelle A3 eine Änderung erfolgt. Nun sollen dann aber auch in den Sheets "VS" und "QS" die verborgenen Zeilen wieder eingeblendet werden. Leider bekomme ich den Sprung auf die anderen Blätter nicht hin. Kann mir bitte jemand den Code erweitern.
Danke. Gruß Peter
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A3:A3]) Is Nothing Then Range("A4").Select
Range(Selection, Selection.End(xlDown)).Select
pw = "pes"
Sheets("IS").Protect Password:=pw, DrawingObjects:=False, Contents:=False, Scenarios:=False
Selection.EntireRow.Hidden = False
Range("A3").Select
pw = "pes"
Sheets("IS").Protect Password:=pw, DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub