Hi jrnyman
You could try this code in a macro:
Application.DisplayAlerts = False
For Each Cell In Selection
If ActiveCell.Offset(1, 0).Value = ActiveCell.Value Then
Range(ActiveCell, ActiveCell.Offset(1, 0)).Merge
Else
ActiveCell.Offset(1, 0).Select
End If
Next
End Sub
This seems to do what you want, but test it out first. Be careful because it will merge blank cells if they are in your selection. Particularly make sure the last cell in your selection is not blank (or it will merge right down the column). Don't forget you can't use the undo button with a macro.
Hope this helps
regards
Derek
This message was edited by Derek on 2002-03-13 06:00