Place this in the sheet module behind Blad 1 (right click the tab--> view code --> Paste code).
Private Sub Worksheet_Calculate() If UCase(Range("I4").Text) = "HIDE" Then Range("A33:A41").EntireRow.Hidden = True ElseIf UCase(Range("I4").Text) = "UNHIDE" Then Range("A33:A41").EntireRow.Hidden = False End If End Sub
Thanks,
Solus
Please remember the following:
1. Use [code] code tags [/code]. It keeps posts clean, easy-to-read, and maintains VBA formatting.Highlight the code in your post and press the # button in the toolbar.2. Show appreciation to those who have helped you by clickingbelow their posts.
3. If you are happy with a solution to your problem, mark the thread as [SOLVED] using the tools at the top.
"Slow is smooth, smooth is fast."
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks