Right click sheet tabview codeinsert thismodify to suit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("a1").Address Then
Dim x As String
Rows.Hidden = False 'Visible = True
Select Case Target
Case 1: x = "40:41"
Case 2: x = "4:8"


Case Else
Exit Sub
End Select
Rows(x).Hidden = True
End If
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"jez" wrote in message
...
or to make it more clear:
if account 1 is selected then unhide or hide rows 40,41
thanks in advance
jez

"Don Guillett" wrote:

Sure, Details???

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"jaz" wrote in message
...
hello there
i wonder if anybody could help me with this

is there a way probably macro that hides rows or columns if a specific
number is entered on A1 for example?
many thanks
jez