Get Worksheet Name into Worksheet Range

How to get worksheet name into worksheet range automatically with VBA. In a variety of situations like when you merging data from different worksheets into a new or master worksheet, we may like to know which data came from which worksheet. Also, for example, we can use the data so obtained to create file names while saving the new file. Watch the video below:

Watch this video on my YouTube channel.

Here’s the complete VBA code to transfer the worksheet name into a worksheet cell:

Module 1 for a single sheet name transfer:

Sub displaySheetNameinRange()

Range(“A1”) = ActiveSheet.Name

End Sub

Module 2 – Transfer names of all worksheets into individual worksheet cells:

Sub getAllWorksheetNames()
Dim wksht As Worksheet
For Each wksht In ActiveWorkbook.Worksheets
wksht.Range(“A1”) = wksht.Name
End Sub

Further Reading:

Worksheet.Name Property (Excel)


Published by

Dinesh Kumar Takyar

Welcome to! My aim is to help you learn MS Excel including VBA. I always felt that a good way to learn something was to find solutions to problems in that domain. That is why I share these Excel videos with you. Mostly these are questions asked during my corporate training sessions. I've been training individuals and companies in computers since 1991. I did my B. Sc. (Vordiplom), M. Sc. (Diplom) and Ph.D. (Dr. rer. nat.) from Hamburg, Germany. The best thing about solving some of my visitor's questions is that I also gain new insights. For more Excel VBA solutions you may like to visit my YouTube channel: For a structured Excel VBA training course online you can visit:

Leave a Reply

Your email address will not be published. Required fields are marked *

This site uses Akismet to reduce spam. Learn how your comment data is processed.