Loop through first cells of selected merged ranges only

[mucah!t]

am trying to give the user the option to do simple arithmetic operations on selected cells. The thing is that most cells are merged ranges.

I got the following already but the problem with it is that it loops through all cells while I only want it to only affect those cells that are not merged or only to the first cells of merged ranges.

Sub test()
Application.ScreenUpdating = False
Dim cel As Range
Dim selectedRange As Range
myValue = InputBox("Enter")
Set selectedRange = Application.Selection

For Each cel In selectedRange.Cells
On Error Resume Next
cel.Value = Evaluate(cel.Value & myValue)
Next cel
End Sub

 

[mumps]

If at all possible, I would suggest that you unmerge all the merged cells. They almost always cause problems for Excel macros. Do a little research into "center across selection". Most often this has the same effect as merging cells without actually merging them.