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

Formula to make cell equal worksheet

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Formula to make cell equal worksheet

Re: Formula to make cell equal worksheet

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions