Assuming you wanted the header in Cell A1:

Sub NameThem()
Dim i As Integer
For i = 1 To Sheets.Count
Sheets(i).Range("A1").Value = "Department " & Sheets(i).Name
Next i
End Sub

Hope this helps
Rowan

Dragos wrote:
HELLO,

I have a question for you guys...I have a worksheet with 12 Sheets: A; B; C;
....K;L.
I would like to record a macro in VBA wich alows me to put in each Sheet a
Header like: Department A for Sheet A, Departement B for Sheet B, etc;
Is this possibile? Please, please help me...I tried all day long !
Thanks