foruforewer
New Member
- Joined
- Sep 5, 2016
- Messages
- 1
Hi I am trying to make on sorting function common for multiple sheet. But it is not working and giving error as shown.
Code:
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