Hi all,

I am trying to use this Chip Person function, it doesn't work, if I use
=thissheetname()

Function ThisSheetName() As String
Application.Volatile True
ThisSheetName = Application.Caller.Parent.Name
End Function

who knows why?

regards from Brazil - going to the 6th *
Marcelo

Works by me!

I entered =ThisSheetName() in a cell, it returned Feuil1, which is exact.

HTH
--
AP

"Marcelo" a écrit dans le message de
news: ...
Hi all,

I am trying to use this Chip Person function, it doesn't work, if I use
=thissheetname()

Function ThisSheetName() As String
Application.Volatile True
ThisSheetName = Application.Caller.Parent.Name
End Function

who knows why?

regards from Brazil - going to the 6th *
Marcelo

Hi Ardus, its return #name? here.

did you paste the code in a Module or in a class Module

regards
Marcelo



"Ardus Petus" escreveu:

Works by me!

I entered =ThisSheetName() in a cell, it returned Feuil1, which is exact.

HTH
--
AP

"Marcelo" a écrit dans le message de
news: ...
Hi all,

I am trying to use this Chip Person function, it doesn't work, if I use
=thissheetname()

Function ThisSheetName() As String
Application.Volatile True
ThisSheetName = Application.Caller.Parent.Name
End Function

who knows why?

regards from Brazil - going to the 6th *
Marcelo

I pasted it in a standard module.

Cheers,
--
AP

"Marcelo" a écrit dans le message de
news: ...
Hi Ardus, its return #name? here.

did you paste the code in a Module or in a class Module

regards
Marcelo



"Ardus Petus" escreveu:

Works by me!

I entered =ThisSheetName() in a cell, it returned Feuil1, which is exact.

HTH
--
AP

"Marcelo" a écrit dans le message de
news: ...
Hi all,

I am trying to use this Chip Person function, it doesn't work, if I
use
=thissheetname()

Function ThisSheetName() As String
Application.Volatile True
ThisSheetName = Application.Caller.Parent.Name
End Function

who knows why?

regards from Brazil - going to the 6th *
Marcelo

Hi!
Just a comment: why use a macro when you have formula to do the job?
When needed, I use the following one:
=RIGHT(CELL("filename",A2),LEN(CELL("filename",A2) )-FIND("]",CELL("filename",A2)))

--
KR

V.


"Marcelo" wrote:

Hi all,

I am trying to use this Chip Person function, it doesn't work, if I use
=thissheetname()

Function ThisSheetName() As String
Application.Volatile True
ThisSheetName = Application.Caller.Parent.Name
End Function

who knows why?

regards from Brazil - going to the 6th *
Marcelo

I did not actually enter the formula, but used the function wizard.

enter:
=[PERSONAL.XLS].ThisSheetName()

HTH
--
AP

"Ardus Petus" a écrit dans le message de news:
...
I pasted it in a standard module.

Cheers,
--
AP

"Marcelo" a écrit dans le message de
news: ...
Hi Ardus, its return #name? here.

did you paste the code in a Module or in a class Module

regards
Marcelo



"Ardus Petus" escreveu:

Works by me!

I entered =ThisSheetName() in a cell, it returned Feuil1, which is
exact.

HTH
--
AP

"Marcelo" a écrit dans le message de
news: ...
Hi all,

I am trying to use this Chip Person function, it doesn't work, if I
use
=thissheetname()

Function ThisSheetName() As String
Application.Volatile True
ThisSheetName = Application.Caller.Parent.Name
End Function

who knows why?

regards from Brazil - going to the 6th *
Marcelo

thanks Ardus, it's works

regards from Brazil

"Ardus Petus" escreveu:

I did not actually enter the formula, but used the function wizard.

enter:
=[PERSONAL.XLS].ThisSheetName()

HTH
--
AP

"Ardus Petus" a écrit dans le message de news:
...
I pasted it in a standard module.

Cheers,
--
AP

"Marcelo" a écrit dans le message de
news: ...
Hi Ardus, its return #name? here.

did you paste the code in a Module or in a class Module

regards
Marcelo



"Ardus Petus" escreveu:

Works by me!

I entered =ThisSheetName() in a cell, it returned Feuil1, which is
exact.

HTH
--
AP

"Marcelo" a écrit dans le message de
news: ...
Hi all,

I am trying to use this Chip Person function, it doesn't work, if I
use
=thissheetname()

Function ThisSheetName() As String
Application.Volatile True
ThisSheetName = Application.Caller.Parent.Name
End Function

who knows why?

regards from Brazil - going to the 6th *
Marcelo