Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Macro wiping out worksheet
I've built a macro to perform some general formatting. The only catch is
that this spreadsheet is an export from a web based application. The headers export as hyperlinks, so I have converted those headers to text PRIOR to running the macro. I've included the code from the macro here. Does anyone see any reason why all the data seems to disappear from the spreadsheet when the macro completes? It's like you highlighted all the columns and deleted them. The title bar still shows that I am in the correct spreadsheet. Sub Traci() ' ' Traci Macro ' Macro recorded 5/18/2006 by TReavis ' ' Keyboard Shortcut: Ctrl+b ' Columns("H:K").Select Selection.Delete Shift:=xlToLeft Columns("C:D").Select Selection.Delete Shift:=xlToLeft Cells.Select With Selection .VerticalAlignment = xlBottom .Orientation = 0 .AddIndent = False .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlYes, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal Range("H19").Select ActiveWorkbook.Save ActiveWindow.WindowState = xlNormal ActiveWindow.WindowState = xlMaximized End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Closing File Error | Excel Discussion (Misc queries) | |||
I need help with a macro which will copy a worksheet and.. | Excel Worksheet Functions | |||
macro to copy and edit then delete a worksheet | Excel Discussion (Misc queries) | |||
macro help | Excel Discussion (Misc queries) | |||
Executing macro for all worksheet from a different worksheet | New Users to Excel |