Hi Steve,
Sorry for the delayed response to your question.
Below is the code to sort the eentirerow on another worksheet but it would present an issue if the names weren't the same on each sheet.
Sub sort_entirerow()
Sheets("PP19").Select
Cells.Range("A7:AL2000").Select
ActiveWorkbook.Worksheets("PP19").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("PP19").Sort.SortFields.Add Key:=Range("A7:A2000"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal 'Set to Sort on Column 'A' FROM 'A7' down to 'A2000'
With ActiveWorkbook.Worksheets("PP19").Sort
.SetRange Range("A7:AL2000")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
I've also attached a workbook that has the Excel Formula that enables sorting of the calculating formula as each formula is the same.
Check out Cell 'Q7' in wsheet PP19.
I need more info on how your file is going to work to help further.
Bookmarks