Solved: Please help me in this VBA Code to edit

[Esmatullah]

Hi dear Friends!
I need to edit this macro that apply in a range like (B10:B2008) not in active cell please help me dear friends.
[VBA]
Public Sub CreateList()
With ActiveCell
.Validation.Delete
.Validation.Add xlValidateList, , , "=" & "A1:A26"
End With
End Sub

[/VBA]

[patel]

[VBA]Sub CreateList()
With Range("B1:B2008").Validation
.Delete
.Add Type:=xlValidateList, Formula1:="=$A$1:$A$26"
End With
End Sub[/VBA]

[Esmatullah]

Thanks Dear Patel!
You Solved my Problem. Please in the forum too kindly :
http://www.vbaexpress.com/forum/show...823#post282823