Interesantno, ali nisam našao funkciju koja to radi.
Skup Excelovih funkcija možeš i sam proširiti pa evo jednostavne funkcije koja bi to radila:
Function SheetName(Optional Ref)
' Returns name of current sheet
If IsMissing(Ref) Then
Set Ref = ActiveCell
End If
SheetName = Ref.Worksheet.Name
End Function
Da započneš unos funkcije Alt+F11, pa izaberi Modul iz menija Insert i unesi gore navedeno.
Naravno da bi ovo radilo nivo sigurnosti mora se smanjiti na medium, a najbolje je potpisati makro da ne bi prilikom otvaranja stalno postavljao pitanje (vidi u helpu temu Add a digital signature to a file or macro project)
Ako želiš da ti ova funkcija bude raspoloživa u svakoj Excel radnoj svesci treba je uneti u personal.xls
Nije to loše Rembrante, samo što ne bi dodao još malo boje?