Want Cell A1 equal to File name + Worksheet name

L

Lawrence

Hi,

i want the cell A1 equal to File name + Worksheet name.. is it possible?

Lawrence
 
J

Jacob Skaria

If you are looking for a macro try this. Launch VBE using Alt + F11. From the
left tree view double click 'This Workbook' and paste the below code. Get
back to workbook. The below code will write the bookname and sheet name to
cell A1 on Save....

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Range("A1") = "[" & ThisWorkbook.Name & "]" & ThisWorkbook.ActiveSheet.Name
End Sub
 
J

Jacob Skaria

If you are looking for a macro try this. Launch VBE using Alt + F11. From the
left tree view double click 'This Workbook' and paste the below code. Get
back to workbook. The below code will write the bookname and sheet name to
cell A1 on Save....

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Range("A1") = "[" & ThisWorkbook.Name & "]" & ThisWorkbook.ActiveSheet.Name
End Sub
 
J

Jacob Skaria

Using a formula, you can try this provided the workbook is already saved.

=SUBSTITUTE(CELL("filename"),INFO("directory"),)

If this post helps click Yes
 
J

Jacob Skaria

Using a formula, you can try this provided the workbook is already saved.

=SUBSTITUTE(CELL("filename"),INFO("directory"),)

If this post helps click Yes
 
S

Stefi

Try this formula in A1:
=CELL("filename",A1)
Regards,
Stefi

„Lawrence†ezt írta:
 
S

Stefi

Try this formula in A1:
=CELL("filename",A1)
Regards,
Stefi

„Lawrence†ezt írta:
 
L

Lawrence

Thanks .. it works perfectly..

but just need to do some text function to make it nicer.
 
L

Lawrence

Thanks .. it works perfectly..

but just need to do some text function to make it nicer.
 
S

Stefi

You are welcome! Thanks for the feedback!
Clicking the YES button will be appreciated.
Post if you can tell us what form would be nicer for xou!
Stefi

„Lawrence†ezt írta:
 
S

Stefi

You are welcome! Thanks for the feedback!
Clicking the YES button will be appreciated.
Post if you can tell us what form would be nicer for xou!
Stefi

„Lawrence†ezt írta:
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

cell equal worksheet title 3
reference to an external file 6
Conditional Format with Name Range? 1
Excel Need Countifs Formula Help 0
Changing worksheet name within a formula (automatically) 5
Using cell as worksheet reference (macro) 1
got to cell on seperate worksheet 2
Cell Referencing between multiple worksheets 3

Top