Not able to pass worksheet to function

[foruforewer]

Hi I am trying to make on sorting function common for multiple sheet. But it is not working and giving error as shown.

Sub BtnAction()
Dim wXY As Worksheet
Set wXY = ActiveWorkbook.Worksheets("XY Coordinates")


SortXY wXY

End Sub



Sub SortXY(w As Worksheet)
Dim srtDataRange As Range
Dim sCol As Integer
MsgBox w.Name


Set srtDataRange = w.UsedRange
sCol = w.UsedRange.Row.Count


w.Sort.SortFields.Clear


For sCol = 1 To i
    w.Sort.SortFields.Add Key:=w.Range(cell(1, i)), Order:=xlAscending
Next


With srtDataRange.Sort
    .Orientation = xlSortColumns
    .Header = xlYes
    .Apply
End With
    


End Sub

 

[RoryA]

Welcome to the forum.

It's Rows.Count and not Row.Count