Hide blank rows on each page excel

[magpie2000k]

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..

 

[magpie2000k]

Re: Help to hide black rows on each page excel

Sorry for the delayed response no I do not get any error messages It will run on the tab i am on on each tab but I have to run it on each and every tab individually and doing so takes it off the previous tab if that makes sense

Thanks

 

[Fluff]

Re: Help to hide black rows on each page excel

That sounds as though you have some other code that is affecting things. Check to see if you have any event code especially sheet activate, or deactivate events.

 

[magpie2000k]

Re: Help to hide black rows on each page excel

I cant see anything other than the one macro is there a way to check ..

I am brand new to VBA

 

[Fluff]

Re: Help to hide black rows on each page excel

In the VB Editor look in each sheet module & also in the ThisWorkbook module

 

[magpie2000k]

Re: Help to hide black rows on each page excel

No Nothing at all

 

[Fluff]

Re: Help to hide black rows on each page excel

Would you be willing to share a (sanitised copy) of your workbook?

 

[magpie2000k]

Re: Help to hide black rows on each page excel

Yeah how?

 

[magpie2000k]

Re: Help to hide black rows on each page excel

PS is the rose because of and affinity to england rugby

 

[Fluff]

Re: Help to hide black rows on each page excel

Upload to OneDrive, or Dropbox, mark it as shared & paste the link to this thread.

 

[Fluff]

Re: Help to hide black rows on each page excel

PS is the rose because of and affinity to england rugby

Ohh yes!