Here's one from a past post by Bob Phillips which does it ..
(Note that the file must be saved beforehand. A pre-requisite.)

'---------
Private Sub Worksheet_Change(ByVal Target As Range)
Const WS_RANGE As String = "C2" '<===== Change to suit

On Error GoTo ws_exit:
Application.EnableEvents = False
If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then
Me.Name = Target.Value
End If


ws_exit:
Application.EnableEvents = True
End Sub
'--------
'This is worksheet event code, which means that it needs to be
'placed in the appropriate worksheet code module, not a standard
'code module. To do this, right-click on the sheet tab, select
'the View Code option from the menu, and paste the code in.

--
Max
Singapore
http://savefile.com/projects/236895
xdemechanik
---
"Colin Hayes" wrote in message
...

Hi

I need a small piece of code which will transfer the contents of Cell C2
(merged to G2) to the tab at the bottom of the sheet.

Can someone help?

Thanks.



Best Wishes


Colin