Arrangement head of the table in the macro code

[jpol]

I must change a head in the original table.
I have some trouble with doing an adjustment in code

I've attached original file (macro it's ok)
Download do wyslania 5 zmienne z ogr f.xls from Sendspace.com - send big files the easy way
and the second what I need
Download do wyslania 5 zmienne head.xls from Sendspace.com - send big files the easy way

And another question what do I need to do to change worksheets names for example "2010" into "year 2010"
I suppose I must doing something with this

<code>[COLOR=#606]If[/COLOR][COLOR=#606]IsNumeric[/COLOR][COLOR=#660]([/COLOR][COLOR=#606]Wks[/COLOR][COLOR=#660].[/COLOR][COLOR=#606]Name[/COLOR][COLOR=#660])[/COLOR][COLOR=#606]Then[/COLOR]</code>

Thank u for help
Regards

 

[Snakehips]

jpol,

And another question what do I need to do to change worksheets names for example "2010" into "year 2010"
I suppose I must doing something with this
Code:

<code style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; padding-top: 0px; padding-right: 0px; padding-bottom: 0px; padding-left: 0px; font-style: inherit; font-weight: inherit; font-family: monospace; line-height: 12px; ">IfIsNumeric(Wks.Name)Then</code></pre><code style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; padding-top: 0px; padding-right: 0px; padding-bottom: 0px; padding-left: 0px; font-style: inherit; font-weight: inherit; font-family: monospace; line-height: 12px; ">
</code>

Re your second question.

Yes, if you have sheet tabs that are numeric eg 2010 then code such as below will run through all sheets and add "Year "

Sub ReName ()
For Each sht in ThisWorkbook.Sheets
If IsNumeric (sht.Name) Then sht.Name = "Year " & sht.Name
Next sht

End Sub

Hope that helps.