J
Jim Ashley
I have many workbooks that all have the same type of information, how
can I make a macro global? Here is the macro:
Private Sub Worksheet_Calculate()
Dim varr As Variant
Dim i As Long
varr = Array(0, 1, 3)
For i = LBound(varr) To UBound(varr)
If Range("A40").Offset(varr(i), 0).Value = "" Then
Range("A40").Offset(varr(i), 0). _
EntireRow.Hidden = True
Else
Range("A40").Offset(varr(i), 0). _
EntireRow.Hidden = False
End If
Next
End Sub
Thanks, Jim
*** Sent via Devdex http://www.devdex.com ***
Don't just participate in USENET...get rewarded for it!
can I make a macro global? Here is the macro:
Private Sub Worksheet_Calculate()
Dim varr As Variant
Dim i As Long
varr = Array(0, 1, 3)
For i = LBound(varr) To UBound(varr)
If Range("A40").Offset(varr(i), 0).Value = "" Then
Range("A40").Offset(varr(i), 0). _
EntireRow.Hidden = True
Else
Range("A40").Offset(varr(i), 0). _
EntireRow.Hidden = False
End If
Next
End Sub
Thanks, Jim
*** Sent via Devdex http://www.devdex.com ***
Don't just participate in USENET...get rewarded for it!