Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("L1").Value = "N" Then
Columns("A:H").EntireColumn.Hidden = True
Else
Columns("A:H").EntireColumn.Hidden = False
End If
End Sub
anyone?.....
Private Sub Worksheet_change(ByVal Target As Range)
if target.address <> Range("L1").address then exit sub
if ucase(target) = "N" Then
Columns("A:H").Hidden = True
Else
Columns("A:H").Hidden = False
End If
End Sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguil...@austin.rr.com
"Tami" <Ta...@discussions.microsoft.com> wrote in message
news:842D851E-C73C-4AFD...@microsoft.com...
what about hiding rows base on a value in column c....for example i'll use
column A to indicate "S" if i want to print all the spring styles, "U" for
all the summers syles but if i put "B" i want that row to appear on both
reports...
--
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguil...@austin.rr.com
"Tami" <Ta...@discussions.microsoft.com> wrote in message
news:0E361272-B157-4334...@microsoft.com...
Current Code:
Private Sub Worksheet_change(ByVal Target As Range)
If Target.Address <> Range("L1").Address Then Exit Sub
Me.Unprotect Password:="paspas"
If UCase(Target) = "N" Then
Columns("A:H").Hidden = True
Else
Columns("A:H").Hidden = False
End If
Me.Protect Password:="paspas"
End Sub
Thanks!
Thanks!
--
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguil...@austin.rr.com
"LKP" <L...@discussions.microsoft.com> wrote in message
news:A5842AF5-CBBB-4138...@microsoft.com...