Status Bar Macro With A Message Waiting Online Excel and Excel Macro (VBA) Courses Copy Macro 'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php Sub RowsToColumns() Dim rCol As Range Dim rCell1 As Range, rCell2 As Range Dim i As Integer, iPBcount As Integer Dim Sht As Worksheet Application.StatusBar = "Converting, please wait....!" Application.ScreenUpdating = False 'Set range variable to Selection Set Sht = ActiveSheet Set rCol = Sht.UsedRange.Columns(1) 'Insert page breaks Sht.PageSetup.PrintArea = "" Sht.PageSetup.Zoom = 100 ActiveWindow.View = xlPageBreakPreview 'Count only horizontal page breaks and pass to an Integer iPBcount = Sht.HPageBreaks.Count On Error Resume Next 'Loop as many times as there horizontal page breaks. For i = 1 To iPBcount 'Set variable 1 to page break X Set rCell1 = Sht.HPageBreaks(i).Location 'Set variable 2 to X page break Set rCell2 = Sht.HPageBreaks(i + 1).Location.Offset(-1, 0) If rCell2 Is Nothing Then 'Last page break Range(rCell1, rCol.Cells(65536, 1).End(xlUp)).Cut Destination:=Sht.Cells(1, i + 1) Else Range(rCell1, rCell2).Cut Destination:=Sht.Cells(1, i + 1) End If Set rCell1 = Nothing Set rCell2 = Nothing Next i On Error GoTo 0 ActiveWindow.View = xlNormalView Application.ScreenUpdating = True Sht.DisplayPageBreaks = False Application.Goto rCol.Cells(1, 1), True Set rCol = Nothing Application.StatusBar = "" End Sub Report problem with this macro This macro does not work. There's an error in the code. Other You can write your comments about the error in the box below. Report error ALL MACROS Youtube Channel The following macros may be useful for you. Similar Results NoMacro Name 1 status bar macro with a message waiting 2 excel operators hk 3 receive a message with a macro 4 Show progress in status bar: You can use this macro to show the progress of a macro code in the status bar. This code will add up to 5000 serial numbers to your sheet / page and will progress along with the status bar. 5 calculating message in macro 6 specifies in detail how many formulas are in the book (on new sheet / page) 7 seconds message in statusbar 8 making a hold macro in the status bar 9 finds formulas on active sheet / page lists new sheet / page 10 list formulas on new sheet / page 11 active cell printing 12 printing and prompting 13 is the size of a file in bytes? 14 get total in status bar (collects selected with mouse) 15 Initialize the statusbar is also excellent 16 specifies in detail how many references the book contains (on new sheet / page) 17 count and message backwards from 10 in statusbar 18 specify file path and extension list in detail 19 excelin all menu pushbutton pictures 20 fonts in word