Wow! Once I eliminate stupid little coding oversites (like inadvertantly
duplicating the 1st line when copying your code), this WORKED GREAT! And
yes, I want this to re-alphabetize with ANY entry in the workbook, not just
when this sheet is selected. Several other sheets need to adjust to the
alphabetized list so when THEY'RE selected, they will always be current. And
Thanks for clueing me in to that XL button. I never knew it was active.
Always thought it decorative. Wow! DD...

"Dave Peterson" wrote:

So you're sorting a single range on a (possibly) different worksheet no matter
where you make a change to any worksheet?

If that's true, I'd specify the worksheet with the range named PatientNamesRooms
and drop the .select stuff.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Source As Range)
with me.worksheets("somesheetnamehere").Range("PatientN amesRooms")
.Sort Key1:=.columns(1), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom,
DataOption1:=xlSortNormal
end with
End Sub

The only way I can think of where this is better than using the
worksheet_activate event for that "somesheetnamehere" sheet is if you have
multiple windows open and you're making changes in one window and want to see
the sort reflected immediately on the other window.

The worksheet_activate event would fire when the user selected the sheet. It
sounds perfect to me.

Or do you have a better reason (more curious than anything).

XL Novice DD... wrote:

My understanding of Workbook_SheetChange is that with ANY change ANYWHERE in
the workbook, the code runs, correct? I can't get it to work and don't know
why:

GOAL: Resort the "PatientNamesRooms" (just a list of about 60 names and
associated hospital room numbers) whenever a change is made on a different
tab within the workbook. Cells in "PatientNamesRooms" are index formulas
that get names based on room numbers from a main roster of names. We need to
quickly find the name alphabetically to determine what room they're in.

I've gotten the code to run (names to sort) using Worksheet SelectionChange.
But that doesn't meet my need. It needs to resort anytime someone updates a
name in the roster (like when a patient leaves or is admitted on the floor).

CODE THAT WON'T RUN:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Source As Range)
Range("PatientNamesRooms").Select Selection.Sort Key1:=Range("A1"),
Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom,
DataOption1:=xlSortNormal

End Sub

Help?

--

Dave Peterson