Contextual Guidance at the moment of need helps your employees adopt to new software or processes instantly. Boost knowledge retention and employee engagement step-by-step with one easy solution.
Sub AddRow() ' ' AddRow Macro ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("A3:A200") _ , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Sheet1").Sort .SetRange Range("A3:AZ200") .Header = xlNo .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Rows("2:2").Select Selection.Copy Selection.Insert Shift:=xlDown Rows("3:3").Select Selection.Locked = True Rows("3:3").Select Selection.Locked = False Selection.FormulaHidden = False Rows("3:3").RowHeight = 27 Range("A3").Select Application.CutCopyMode = False End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Excel compare strings||6||55|
|how can I determine if an Excel spreadsheet will fit on an 8.5 by 11 inch sheet?||3||59|
|I need to extract city and state from a cell in Excel||6||31|
|Excel - merge column values||3||26|
Join the community of 500,000 technology professionals and ask your questions.