=REPLACE(CELL("Filename",A1),1,SEARCH("]",CELL("Filename",A1)),"")

which can be entered anywhere, including A1 itself.

Graham Tritton wrote:
I am trying to reference the name of my worksheet in a cell. IE

=sheetname(this.sheet)

output

Sheet 1

Any ideas outside of VBA? is there a function that I can use?