Validation List

[mike]

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("H1").Value <> "" Then
Sheet3.Range("H1").Value = Sheet2.Range("H1").Value
Sheet4.Range("H1").Value = Sheet2.Range("H1").Value
Sheet5.Range("H1").Value = Sheet2.Range("H1").Value
Sheet6.Range("H1").Value = Sheet2.Range("H1").Value
End If

End Sub

-trying to auto change selected list item for each worksheet list
-code above for sheet2, works fine
-add and make the changes to sheet 3, works fine
-do the same for sheet 4, 5, or 6, and it gets hung up
?when the list is updates on the other worksheets, does that trigger
Worksheet_Change on all subsequent worksheets?

 

[JMay]

Your code works fine (on my end).