Pineywoods,

If I'm understanding correctly, maybe this will work . . .

Assuming:

(1a) Four sheets named Sheet1, Sheet2, Sheet3, and Sheet4.
(1b) Each sheet has a title in cell A1 of each sheet called €œName€�.
(1c) The database covers the range A2:A6 in each sheet.
(1d) You make changes to the data in Sheet1. The data in Sheet2, Sheet3,
and Sheet4 is tied back to Sheet1.

(2) Add the following code to the Sheet1 code module:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Application.ScreenUpdating = False
If Not Application.Intersect(Target, Range("A2:A6")) Is Nothing Then
Call SortSheets
End If
End Sub

(3) Create a new regular code module and add this code:

Sub SortSheets()
Sheets("Sheet1").Select
Call Sort
Sheets("Sheet2").Select
Call Sort
Sheets("Sheet3").Select
Call Sort
Sheets("Sheet4").Select
Call Sort
Sheets("Sheet1").Select
Range("A1").Select
End Sub

Sub Sort()
Range("A1").Select
Columns("A:A").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess
Range("A1").Select
End Sub

Whenever you make a change to a cell in Sheet1 Range A2:A6, the first macro
triggers the SortSheets routine. The SortSheets routine selects a sheets and
runs the Sort routine.

----
Regards,
John Mansfield
http://www.pdbook.com



"pineywoods" wrote:

Thanks Don, but what I need to do is sort the data within the worksheets, not
sort the order of the worksheets.

"pineywoods" wrote:

I have a workbook with 4 worksheets. The €œname€� column is linked from SHEET1
to the €œname€� column in SHEET2, SHEET3 and SHEET4. I need to be able to
change a name in SHEET1 and sort all of the data colunms in all 4 sheets by
€œname.€� Any ideas on how to do this?