Why do you build that formula manuall

sLeft = Selection.Item(1).Address
sRight = Selection.Item(Selection.Count).Address
iTotalcells = Selection.Count
sRange = sLeft + ":" + sRight

could be replaced with


sRange = Selection.Address

You are using a fairly advanced technique to break out information which you
reassemble back to the original information.

to further illustrate.

if selection.Areas.count = 1 then
yTop = selection(1).Row
xLeft = selection(1).coluimn
yBottom = selection(selection.count).Row
xRight = selection(selection.count).column
end if

--
Regards,
Tom Ogilvy


" wrote:

Thanks, that solved my problem.