Indents may not print if Fit to Page is combined with Print Row and Column Headings

Sub RemoveIndents()
        'Each indent places approximately 3 character widths
            ' of space at the beginning of the cell
            ' Macro tests for the indent level and
            ' replaces each indent with 3 spaces
    For Each c In ActiveSheet.UsedRange.Cells
        If c.IndentLevel > 0 Then
            padstring = String(c.IndentLevel * 3, " ")
            c.Value = padstring & c.Text
            c.IndentLevel = 0
        End If
    Next
End Sub
				

Sub ReplaceIndents()
        'Macro tests for spaces at the beginning of the cells
            'and replaces each indent with 3 spaces
     Dim OldLevel As Byte 'used to hold the indentlevel you need
     For Each c In ActiveSheet.UsedRange
         If InStrRev(c.Text, " ") > 0 Then 
               OldLevel = (InStrRev(c.Text, " ") + 2) / 3
                    of the cell, divides by 3 to give indentlevel
               c.Value = Right(c.Text, Len(c.Text) - _
                 InStrRev(c.Text, " ") - 2)
               c.IndentLevel = OldLevel
          End If
     Next c
End Sub