Sub test()
Dim ws As Worksheet, maliste As String
Range("A1").Validation.Delete
For Each ws In Worksheets
maliste = maliste & ws.Name & ","
Next ws
Range("A1").Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=maliste
End Sub