Hücreye tıklandığında otomatik çalışan makroda hata veriyor.

[ozeb75]

Arkadaşlar anasayfamda bir hücreye tıklandığında otomatik çalışan bir kod yazdım.
gizlediğim sayfaları otomatik açıyor. 1 sayfa için yaptığımda çalıştı ancak çalışmamda 50 gizli sayfa var.

kırmızıyla belirttiğim satırları yazdığımda "run time error 9 subscript outof range" makro hatası veriyor.

Birden çok hücreye bu kodu tanımlamak için ne yapmalıyım?


Private Sub Worksheet_selectionChange(ByVal Target As Range)
Select Case ActiveCell
Case "06 AH 5776": Call AH5776
Case "06 BJ 8300": Call BJ8300
Case Else
End Select
End Sub

Sub AH5776()
sheets("06 AH 5776").Visible = True
sheets("06 AH 5776").Select
End Sub

Sub AH5776()
sheets("06 AH 5776").Visible = True
sheets("06 AH 5776").Select
End Sub

 

[hamitcan]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
With Sheets(Target.Text)
.Visible =True
.Select
End With
End Sub

şeklinde deneyin.