Well it took me about 20 minutes to realize I needed to call the sub
name and not the module name, but it is working now. Thank you so much
Jim!

On Jul 31, 12:35*pm, "Jim Cone" wrote:
Your original code is "event" code. *When the sheet is selected the code runs.
You can't have multiple sets of identical event code operating in a single sheet.
But you can within that single event sub call other code sets (subs or functions).
So rename the second sub... maybe. "DoTheOtherSheets" and place it
in a standard/regular module (not a module behind a sheet). *Then add the call line
near the bottom of the Worksheet_Activate sub...

' your other code
Call DoTheOtherSheets
Application.ScreenUpdating = True
End Sub
'--
Also change...
Dim Rng2 As Range2
-to-
Dim Rng2 As Range
--
Jim Cone
Portland, Oregon *USA

"r2badd"
wrote in message
One more question on this... I am trying to do this code for multiple
worksheets going into the same first worksheet. I am not sure how to
get the second half of code working. Below is the code I created, the
first part works perfectly, but the second half doesn't work at all.

Sub Worksheet_Activate()
'
'AutoFill&Hide for Incidents
'
Dim Rng As Range
Dim i As Long
Set Rng = Sheets("ALLEN").Range("B20:E26")
Application.ScreenUpdating = False
Sheets("Report").Range("B18:E24").Value = Rng.Value
For i = 1 To Rng.Rows.Count
* * If WorksheetFunction.CountA(Rng.Rows(i)) = 0 Then
* * * * Sheets("Report").Rows(i + 17).EntireRow.Hidden = True
* * Else
* * * * Sheets("Report").Rows(i + 17).EntireRow.Hidden = False
* * End If
Next i

Application.ScreenUpdating = True
End Sub
__________________________________________________ __________________
Sub Worksheet_Activate_Incident_Alyce()
'
'AutoFill&Hide for Incidents
'
Dim Rng2 As Range2
Dim i As Long
Set Rng2 = Sheets("ALYCE").Range2("B20:E26")
Application.ScreenUpdating = False
Sheets("Report").Range("B25:E31").Value = Rng2.Value
For i = 1 To Rng2.Rows.Count
* * If WorksheetFunction.CountA(Rng2.Rows(i)) = 0 Then
* * * * Sheets("Report").Rows(i + 24).EntireRow.Hidden = True
* * Else
* * * * Sheets("Report").Rows(i + 24).EntireRow.Hidden = False
* * End If
Next i

Application.ScreenUpdating = True
End Sub