Take your time. I've already fixed my local instance.
I've installed the latest version, and it doesn't work. Dim hAlignment As Variant If hAlignment = xlGeneral And (IsNumeric(cell) Or IsDate(cell)) Then hAlignment = xlRight Else hAlignment = .HorizontalAlignment End If cellValue = formatCell(cellValue, x, y, hAlignment, .VerticalAlignment, .indentLevel, fcolor, .DisplayFormat.Interior.color) "If hAlignment ..." never evaluates to true. You should check .HorizontalAlignment instead.
I've installed the latest version, and it doesn't work. Dim hAlignment As Variant If hAlignment = xlGeneral And (IsNumeric(cell) Or IsDate(cell)) Then hAlignment = xlRight Else hAlignment = .HorizontalAlignment End If cellValue = formatCell(cellValue, x, y, hAlignment, .VerticalAlignment, .indentLevel, fcolor, .DisplayFormat.Interior.color) " If hAlignment" never evaluates to true. You should check .HorizontalAlignment instead.
number alignment