change worksheet name

[stevekirk]

hi,

i would like to change a number of worksheets names if there is data in a cell.

ie . if A4 to N4 had data in them then change the worksheets names to the values in the cell 2 above them

for example a4 had blue in it. a2 has "colour" in it, a4 has 48 in it a2 has house no in it

i need to changa the worksheet names to suit the data in the row 2 if there is data in the row 4


thank
you

[davesexcel]

worksheet module

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error Resume Next
If Target.Address = "$A$1" Then
Target.Parent.Name = Target.Value
If Err.Number = 1004 Then MsgBox Err.Description
End If
End Sub


when a value changes in A1 of the sheet you have the code in; the sheet tab will change accordingly, carefull though, could affect formulas and other macros

[stevekirk]

hi,

sorry that i got it wrong and confused you but what i am after is

row1 a has prefixed heading, ie colour.name,phone number, etc
row 3 sometimes has data below the headings,
if row 3 has data below the heading then create a new worksheet with the header name . if no data is in that row ignor and do not create a new worksheet

sorry if this cause an inconveinece

steve

[davesexcel]

Here's a site you could fine codes to add worksheets

http://www.mvps.org/dmcritchie/excel/sheets.htm

Create a new sheet named with the text value of a cell with a changed value in Column F (col 6).