I utilise a number of rows into which I place the steps of a chemical process.

The rows for the chemical steps are between row 20 and 87.

I enter a chemical process which takes a number of these rows to complete. I
then have to manually hide the unused rows as they are not required for
printing and for getting to other rows below row 87.

Is there a macro/code I can use which will check for empty cells in column B
(where the process is entered) in rows 20-87 so that these rows will be
automatically hidden. I already have a macro to unhide these cells.

I would need the code to work in any selected sheet as the chemical process
stages may be entered over 10 different sheets (St1, St2, St3 etc).

can anyone help?

Hi,

Put this in a general module, it works on the active sheet. Note that
isempty means exactly that, a formula that returns Null isn't empty.

Sub stance()
Dim MyRange As Range
Set MyRange = ActiveSheet.Range("B20:B87")
For Each c In MyRange
If IsEmpty(c) Then
c.EntireRow.Hidden = True
End If
Next
End Sub

Mike

"Roger on Excel" wrote:

I utilise a number of rows into which I place the steps of a chemical process.

The rows for the chemical steps are between row 20 and 87.

I enter a chemical process which takes a number of these rows to complete. I
then have to manually hide the unused rows as they are not required for
printing and for getting to other rows below row 87.

Is there a macro/code I can use which will check for empty cells in column B
(where the process is entered) in rows 20-87 so that these rows will be
automatically hidden. I already have a macro to unhide these cells.

I would need the code to work in any selected sheet as the chemical process
stages may be entered over 10 different sheets (St1, St2, St3 etc).

can anyone help?

Thanks Mike,

Roger

"Mike H" wrote:

Hi,

Put this in a general module, it works on the active sheet. Note that
isempty means exactly that, a formula that returns Null isn't empty.

Sub stance()
Dim MyRange As Range
Set MyRange = ActiveSheet.Range("B20:B87")
For Each c In MyRange
If IsEmpty(c) Then
c.EntireRow.Hidden = True
End If
Next
End Sub

Mike

"Roger on Excel" wrote:

I utilise a number of rows into which I place the steps of a chemical process.

The rows for the chemical steps are between row 20 and 87.

I enter a chemical process which takes a number of these rows to complete. I
then have to manually hide the unused rows as they are not required for
printing and for getting to other rows below row 87.

Is there a macro/code I can use which will check for empty cells in column B
(where the process is entered) in rows 20-87 so that these rows will be
automatically hidden. I already have a macro to unhide these cells.

I would need the code to work in any selected sheet as the chemical process
stages may be entered over 10 different sheets (St1, St2, St3 etc).

can anyone help?