G
GSENSEI
My office has just converted us to excel 2010. My lovley spreadshee
macro that made me the envy of the office no longer works and everyon
now wants my blood.
The sheet is protected.
I have a macro that will select a variable amount of rows and sor
alphabetically. It looks for the hidden cell xdummy then selects ever
row above it up to row 13, then sorts A -Z. Except now it doesn't
Help!
Sub Sort()
'
' Sort Macro
'
'Sheets("Cashflow").Unprotect "Cashflow2012"
Cells.Find(What:="xdummy", After:=ActiveCell, LookIn:=xlFormulas
LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Rows("13:" & ActiveCell.Row - 1).Select
Selection.Sort Key1:=Range("a13"), Order1:=xlAscending, Header:=xlGuess
_
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Sheets("Cashflow").Protect "Cashflow2012"
End Su
macro that made me the envy of the office no longer works and everyon
now wants my blood.
The sheet is protected.
I have a macro that will select a variable amount of rows and sor
alphabetically. It looks for the hidden cell xdummy then selects ever
row above it up to row 13, then sorts A -Z. Except now it doesn't
Help!
Sub Sort()
'
' Sort Macro
'
'Sheets("Cashflow").Unprotect "Cashflow2012"
Cells.Find(What:="xdummy", After:=ActiveCell, LookIn:=xlFormulas
LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Rows("13:" & ActiveCell.Row - 1).Select
Selection.Sort Key1:=Range("a13"), Order1:=xlAscending, Header:=xlGuess
_
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Sheets("Cashflow").Protect "Cashflow2012"
End Su