Formula1:="=" & RefWS.Cells("A1:A6").Address(1,1,xlA1,True)

or if you already know the name,

Formula1:="refSheetName!A1:A6"

--
Regards,
Tom Ogilvy



"Boba" wrote:

Hi;
in my formula, how do i reference a range from
a worksheet given by reference? Say i wonna create
validation list for Workbooks(1).Sheets(1).Cells("A1")
based on the following:
Dim RefWS As Worksheet
Set RefWS=Workbooks("RefBookName").Sheets("RefSheetNam e")
With Workbooks(1).Sheets(1).Cells("A1").Validation
.Add Type:=xlValidateList _
Formula1:="=RefWS.Cells("A1:A6")"
End With
Thanx.Boba.