I have this formula that takes the value of a cell (whose
value is based on a formula) and joins it together with
some text and creates the tab name as a result. I'm trying
to do the formula so that if the cell is blank or is = 0
then it will set the tab to a default value. But it
doesn't work. I keep getting "Run time error '7': out of
memory" Does anyone know a way to fix it? Basically there
are 3 sheets in the work book. The tab names are all based
on what is entered in one cell in the first worksheet,
with text added on so there is no duplication of names.


Private Sub Worksheet_Calculate()
On Error Resume Next
With Range("C3")
Me.Name = .Value & " Program"
On Error GoTo 0
If Me.Name < .Value Then _
Me.Name = "XXX Program"

End With
End Sub