Sub thshets()
For i = 1 To 25
Sheets(i).Cells(1, 1).Value = "Something"
Next i
End Sub

Raj wrote:
Hi all,

I'm facing with a problem can any one help me on the issue
that i'm facing which is explained further.I'm working on an Hr report
which has 30 sheets in in and in a loop i would like to travel up till
the 25th sheet and while i'm travelling i would like to write some
data in to each sheets can any one provide me with an solution for
this problem.