Function won't return value in merged cells

Giganews Newsgroups
Subject: Function won't return value in merged cells
Posted by:  Dr. Mike (mrlani…@charter.net)
Date: 29 May 2006

I have a need for when deleting the formula within a cell, another
cell's value will appear as default.  Following is a formula that
serves, and works well in a single, unmerged cell.  However, it--not
anything else I have tried--works in a group of merged cells.  Does
anyone have a suggestion, and even better, an adaption to this formula?

Private Sub Worksheet_Change(ByVal TargetCell As Range)

    If Not Intersect(TargetCell, Range("L14:L14")) Is Nothing Then
        If TargetCell = "" Then
            TargetCell = "=Sheet1!O14"
            End If
        End If
    End Sub

Thanks,

Dr. M

Replies