FYI, using the DAH feature, my work-around is to specify B2:B5 as the bin range. After clicking OK, I replace the "More" label in C6 with the number 5.
But I want to avoid describing those hacks to other users, who might be unskilled.
IMHO there is no way to prevent the "more" bin, your workaround is very good.
For unskilled customers I would recreate the UI in an AddIn and use my own code, like the sample below (for others that might not have your skills ;-). So we can show the histogram using a button in "public".
Andreas.
Sub CreateHistogram()
Dim InpRng As Range, OutRng As Range, BinRng As Range
'Input from user interface
Set InpRng = Range("A2", Range("A" & Rows.Count).End(xlUp))
Set OutRng = Range("F1")
Set BinRng = Range("B2", Range("B" & Rows.Count).End(xlUp))
'Chart creation
#If UseReference Then
'Enable addin 'Analysis ToolPak - VBA' and set a reference to 'atpvbaen.xls'
Histogram InpRng, OutRng, BinRng.Resize(BinRng.Rows.Count - 1), Chart:=True
#Else
Application.Run "ATPVBAEN.XLAM!Histogram", InpRng, OutRng, BinRng.Resize(BinRng.Rows.Count - 1), 0, 0, 1, 0
#End If
OutRng.Offset(BinRng.Rows.Count).Value = BinRng.Cells(BinRng.Cells.Count)
End Sub