Hi friends,
The code is working fine in the sheet module but each time I enter any value in sheet 'Information' the macro runs and take a little time to complete which is very annoying for me. It slow downs my speed of work. I want to avoide it and so want to run this macro from standard module. So that whenever I click the macro then only it will run and speed of my work.
Please suggest me a amendment to run it from standard module.Private Sub Worksheet_Change(ByVal Target As Range) Dim c As Range Application.ScreenUpdating = False Application.EnableEvents = False If Not Intersect(Target, Range("B:B")) Is Nothing Then For Each c In Worksheets("Result").Range("B8:B90") c.EntireRow.Hidden = c.Value = "" Next c End If If Not Intersect(Target, Range("B:B")) Is Nothing Then For Each c In Worksheets("Test").Range("B8:B91") c.EntireRow.Hidden = c.Value = "" Next c End If Application.EnableEvents = True Application.ScreenUpdating = True MsgBox "done" End Sub
Any help will be appreciated.
Thanking you in anticipation.
Bookmarks