Hello,
Have several users running this report. Depending on the user the first worksheet may have a different name - ex. FGlistmonthly or Design_Responsibility_name, etc. Second Worksheet may be Sheet1 or Sheet5, etc. Need Macro to run no matter what the Worksheets are name without having to change Macro if possible. Usually is what I do to match the Worksheet name. Thanks for any help.
Option Explicit Sub MonthlyFGList() ' ' MonthlyFGList Macro ' MonthlyFGList ' ' Columns("DX:DZ").Select Selection.Delete Shift:=xlToLeft Columns("DV:DV").Select Selection.Delete Shift:=xlToLeft Columns("BM:BM").Select Selection.Cut Columns("DW:DW").Select Selection.Insert Shift:=xlToRight Columns("B:C").Select Selection.Delete Shift:=xlToLeft Columns("CB:CB").Select Selection.Cut Columns("E:E").Select Selection.Insert Shift:=xlToRight Columns("AR:AS").Select Selection.Cut Columns("F:F").Select Selection.Insert Shift:=xlToRight Columns("G:G").Select Selection.Cut Columns("F:F").Select Selection.Insert Shift:=xlToRight Columns("CA:CB").Select Selection.Cut Columns("H:H").Select Selection.Insert Shift:=xlToRight Columns("AJ:AJ").Select Selection.Cut Columns("J:J").Select Selection.Insert Shift:=xlToRight Columns("AD:AE").Select Selection.Cut Columns("K:K").Select Selection.Insert Shift:=xlToRight Columns("BK:BX").Select Selection.Cut Columns("M:M").Select Selection.Insert Shift:=xlToRight Columns("BZ:CB").Select Selection.Cut Columns("AA:AA").Select Selection.Insert Shift:=xlToRight Columns("DH:DQ").Select Selection.Cut Columns("AD:AD").Select Selection.Insert Shift:=xlToRight Columns("AN:AN").Select Selection.Cut Columns("AF:AF").Select Selection.Insert Shift:=xlToRight Columns("AO:AO").Select Selection.Cut Columns("AK:AK").Select Selection.Insert Shift:=xlToRight Columns("AP:AP").Select Selection.Cut Columns("AN:AN").Select Selection.Insert Shift:=xlToRight Rows("2:1250").Select Selection.RowHeight = 95 Rows("1:1").Select Selection.RowHeight = 75 Columns("I:I").Select With Selection .WrapText = True .Orientation = 0 .AddIndent = False .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Columns("H:H").Select With Selection .WrapText = True .Orientation = 0 .AddIndent = False .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Range("N1").Select Columns("X:Y").Select With Selection .WrapText = True .Orientation = 0 .AddIndent = False .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Columns("AD:AD").Select Columns("DT:DT").Select Selection.Cut Columns("O:O").Select Selection.Insert Shift:=xlToRight Columns("DT:DT").Select Selection.ColumnWidth = 80 Columns("A:D").Select Selection.Copy Sheets.Add After:=Sheets(Sheets.Count) ActiveSheet.Paste Sheets("FGlistmonthly").Select Columns("DT:DT").Select Application.CutCopyMode = False Selection.Copy Sheets("Sheet1").Select Range("E1").Select ActiveSheet.Paste Sheets("Sheet1").Select Sheets("Sheet1").Name = "Published Benefits Statements" Sheets("FGlistmonthly").Select Columns("DU:DU").Select Selection.Cut Columns("C:C").Select Selection.Insert Shift:=xlToRight Columns("A:A").ColumnWidth = 12 Columns("B:B").ColumnWidth = 20 Columns("C:C").ColumnWidth = 12 Columns("D:D").ColumnWidth = 90 Columns("E:F").ColumnWidth = 13.2 Columns("G:H").ColumnWidth = 65 Columns("I:I").ColumnWidth = 155 Columns("J:J").ColumnWidth = 62.43 Columns("K:N").ColumnWidth = 13.5 Columns("O:O").ColumnWidth = 25 Columns("P:S").ColumnWidth = 14 Columns("T:T").ColumnWidth = 23 Columns("U:U").ColumnWidth = 17.43 Columns("V:V").ColumnWidth = 13.5 Columns("W:Y").ColumnWidth = 14 Columns("Z:AA").ColumnWidth = 33 Columns("AB:AE").ColumnWidth = 13.4 Columns("AF:AJ").ColumnWidth = 23.44 Columns("AK:AK").ColumnWidth = 23.43 Columns("AL:AM").ColumnWidth = 13.5 Columns("AN:AX").ColumnWidth = 23.43 Columns("BX:BX").ColumnWidth = 41 Columns("BY:CB").ColumnWidth = 14 Columns("CC:CL").ColumnWidth = 27 Columns("DA:DA").ColumnWidth = 35 Columns("DR:DR").ColumnWidth = 45 Columns("DS:DT").ColumnWidth = 26 End Sub
Bookmarks