Depends on if you want formulas or VBA. you could just reference the cell on sheet 1 with and if blank so something like =IF(Sheet1!A1="","",Sheet1!A1)
or you coud have vba do it as a 1 off process with
Code:
Sub UpdateNames()
Dim NameList As Range
Dim I As Integer
Dim R As Integer
R = Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
Set NameList = Worksheets("Sheet1").Range("a1:a" & R)
For I = 2 To 4
NameList.Copy Worksheets("Sheet" & I).Range("a1")
Next I
End Sub
Or you could have VBA do it as new items are added
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Range("a:a")
Dim I As Integer
For I = 2 To 4
Worksheets("Sheet1").Range("a:a").Copy
Worksheets("Sheet" & I).Range("a:a").PasteSpecial xlValues
Next I
End Sub