VBA Code:
'Private Sub Worksheet_Change(ByVal Target As Range)
'Dim LstRw As Long, Rw As Long
'Application.ScreenUpdating = False
'''Un-hide all rows to start with
'Range("C8:C156").EntireRow.Hidden = False
'For Rw = 4 To 156
' If Cells(Rw, 6) = "ELL" Then Cells(Rw, 6).EntireRow.Hidden = True
'Next Rw
'Application.ScreenUpdating = True
'End Sub
VBA Code:
'Private Sub Worksheet_Change(ByVal Target As Range)
'Dim LstRw As Long, Rw As Long
'Application.ScreenUpdating = False
'''Un-hide all rows to start with
'Range("C8:C158").EntireRow.Hidden = False
'For Rw = 4 To 158
' If Cells(Rw, 6) = "ELL" Then Cells(Rw, 6).EntireRow.Hidden = True
'Next Rw
'Application.ScreenUpdating = True
'End Sub
This is all the VBA I have on any of the pages in the file. The VBA Project tree shows as follows:
VBAProject (01 VOLTAGE DROP.xlsb) - My workbook file
.....Microsoft Excel Objects
...........Sheet14 (NAC PANEL 1 (7 CKT)) - Has the second VBA code group in it
...........Sheet4 (LOOKUP) - Nothing VBA here
...........Sheet7 (FIRE ALARM CONTROL PANEL) - Has the first VBA code group in it
...........ThisWorkbook - Nothing VBA in here
VBAProject (PERSONAL.XLSB) - No Idea where this is or came from
.....Microsoft Excel Objects
...........Sheet1 (Sheet1) - Nothing VBA here
...........ThisWorkbook - Nothing VBA in here
I have no idea how to remove the Personal.xlsb stuff from the tree or file. There are several hidden pages with nothing else, and as you can see the VBA has been quoted out, so is not even being used.
Thanks, Anything else you need let me know.
(Edit for formatting)