Someone may have a simpler answer, but this short macro seems to do it:
Sub InstTxt()
Dim ShtNum As Byte
Dim Cntr As Byte
ShtNum = Worksheets.Count
For Cntr = 1 To ShtNum
Worksheets(Cntr).Select
Range("A5").Value = "house" & Cntr
Next Cntr
End Sub
You can put it into your file by pressing Alt+F11.
Then, choose Insert | Module
Copy and Paste
tj
"Salt4" wrote:
I'm trying to name the cells on sequential pages with sequential names:
Page "1", cell "A5" is named "house1"
Page "2", cell "A5" is named "house2"
Page "3", cell "A5" is named "house3"
. . . and so on . . . .
Is there a way I can do this quickly with out going to each cell on each
page and naming them individually?
|