Ye I mean Blank not Black Hi 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..
This question generated 16 answers. To proceed to the answers, click here.
This thread is current as of February 05, 2018.