Hi I have created a button- which i want to click and allow the rows to sort into a custom order- i have applied VBA and assigned the macro to the button but when I click it comes up with an error that just says "400"

this is the code i have used.... can you help please

Sub sortData()

Dim sh1 As Worksheet
Dim rSort As Range
Dim rKey As Range
Dim customSort(1 To 3) As String
Set sh1 = ActiveWorkbook.Worksheets("OVERVIEW")

dataCell = "B10"

Set rSort = sh1.Range(dataCell).CurrentRegion
Set rKey = sh1.Range(dataCell)

customSort(1) = "STATUS"
customSort(2) = "IN PROGRESS"
customSort(3) = "COMPLETE"


Application.AddCustomList ListArray:=customSort
rSort.Sort Key1:=rKey, Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=Application.CustomListCount + 1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal

End Sub



thanks