Working with hidden rows

[mqasimalihot]

i'm new in this site i have some problem that i'm using empty row cell coding my excel sheet2 and my sheet2 hide problem is sheet2 not upadted if im not open sheet please help me without open or visible sheet2 automatically updated.coding is
'<< Code for worksheet module >>

Option Explicit

Private Sub Worksheet_Activate()

Dim HiddenRow&, RowRange As Range, RowRangeValue&

'*****************************
'< Set the 1st & last rows to be hidden >
Const FirstRow As Long = 4
Const LastRow As Long = 20

'< Set the columns that may contain data >
Const FirstCol As String = "B"
Const LastCol As String = "G"
'*****************************

ActiveWindow.DisplayZeros = False
Application.ScreenUpdating = False

For HiddenRow = FirstRow To LastRow

'(we're using columns B to G here)
Set RowRange = Range(FirstCol & HiddenRow & _
":" & LastCol & HiddenRow)

'sums the entries in cells in the RowRange
RowRangeValue = Application.Sum(RowRange.Value)

If RowRangeValue <> 0 Then
'there's something in this row - don't hide
Rows(HiddenRow).EntireRow.Hidden = False
Else
'there's nothing in this row yet - hide it
Rows(HiddenRow).EntireRow.Hidden = True
End If

Next HiddenRow

Application.ScreenUpdating = True

End Sub
i;m wait your reply regards
Qasim

[mdmackillop]

Hi Qasim,
In you have a new question you post it once as a new thread. Posting it 13 times into other threads is considered a breach of forum rules, and has a very small chance of getting any response.
Regards
MD