Formula to make cell equal worksheet

**jj33002** · 09-07-2010, 12:45 PM

I would like to have cell A1 equal the name of Worksheet 1. The worksheets are in date format of 9-7-10. So after formula is entered Cell A1=9-7-10 B1=9-8-10. Each cell with a value would have a sheet. It would probably be easier to look at my attatched sheet.

Thanks in advance.

**Richard Buttrey** · 09-07-2010, 01:04 PM

Hi,

One way with the following macro

Sub ListSheetnames()
    Dim x As Long
    For x = 1 To Sheets.Count
        Range("A1").Cells(x, 1) = Sheets(x).Name
    Next x
End Sub

It will also list the Totals sheet name so just delete this.

Rgds

Thread: Formula to make cell equal worksheet

Thread Tools

Display

Formula to make cell equal worksheet

Re: Formula to make cell equal worksheet

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions