I have used the below VB code and i can get it to work to hide blank rows on sheet 1 where the contents in A is blank However I need to get it to run for all pages in the workbook. of which there are 4 Private Sub Worksheet_Change(ByVal Target As Range) 'Updateby Extendoffice 20160913 Dim xRg As Range Application.ScreenUpdating = False For Each xRg In Range("A1:A70") If xRg.Value = "" Then xRg.EntireRow.Hidden = True Else xRg.EntireRow.Hidden = False End If Next xRg Application.ScreenUpdating = True End Sub Any help would be great.. Last edited by magpie2000k; Feb 5th, 2018 at 09:39 AM.
This question generated 16 answers. To proceed to the answers, click here.
This thread is current as of February 5, 2018.
For more resources for Microsoft Excel:
This article includes the following tags:
- Microsoft Excel