Posts by Adi64

Carim, That worked so well. Thank you

Carim, good advice. Please see the attached word document.

I thank you all for your continuing support.

Roy, I should have said every column with an empty cell on row 30 will be hidden.

Hi, Roy sorry for the delay in answering, I have been off shift. I tried your code after populating some test data in the cell range H5:QF642. It hid every cell regardless of the cell being empty or not. Maybe I wasn't clear enough what I am looking for is, I double click (I like that feature) on row 30 Could be any row from 5 to 642 the result I am looking for is every cell from column H to QF on row 30 that is empty is to be hidden, every cell that is not empty is to be visible. I could double-click on any row and that is the row I need to hide the empty cells. I hope this is a better explanation.

Alan, Roy,

Thank you both for taking the time to answer my question, I'll do better regarding the Code tags in future.

royUK your code works perfectly, the only issue is that the user is fixed using the range in line 10 ("A58:ADO58") I manually changed that line to one suitable for my sheet and it hid the columns that had empty cells.

I user needs to be able to select any row and not be fixed to ("A58:ADO58"). Is it possible to replace this ("A58:ADO58") with a manual entry, such click on a cell and use that row.

Thanks again

Adrian

I have a worksheet with 600 rows and 500 columns. I would like to be able to select a cell have that row selected from column 1 to 500 then have the columns that have empty cells Hidden. I found this code below by Bryce. But it has a fixed to row 1. Thanks.

Sub hideColumns()
Dim ws As Worksheet
Dim rng As Range
Application.ScreenUpdating = False
Set ws = Sheet1
For Each rng In ws.Range("A58:ADO58")
If rng.Value = "" Then
rng.EntireColumn.Hidden = True
End If
Next rng
End Sub