Excel Formula for Comments?

It seems there was some confusion regarding my previous thread that was closed, which can be found here:
http://www.excelforum.com/excel-prog...ml#post2390707

My original question is the same:
Is there a way to copy/get the "comments" of a cell using an excel formula?
i.e. if A1 contains a comment, copy that comment to B1?

What I meant by "locked" in the previous thread is that the VBA portion is locked out, and therefore I cannot run the macro within that specific file. The intent is not to crack the password, or get around password protection (in the sense of maliciously accessing data).
I can easily just copy and paste all the cells from the VBA-locked file and then copy it into my new file, but because this locked file is constantly being updated, I can't have a current update report without the "human macro" of copying and pasting these cells.

Originally Posted by Domski

Cross posted here: http://www.mrexcel.com/forum/showthread.php?t=498249

GunNam please ready this: http://www.excelguru.ca/node/7

Dom

Dom,

Thanks for bringing that to my attention.

Originally Posted by Domski

For info a macro can as easily be written to run on any workbook as the one that contains the code. You could store the code that you want to run in another workbook and just open that whenever you want to run it or in an add-in that will always be available to you.

Dom

Thanks for this, but I am not looking for a way to do it in a macro, I am looking for an Excel formula, if one even exists.

buran, I think you just gave me an idea... I'm going to go test it out.

Before I over complicate things:
I found this thread: http://www.excelforum.com/excel-prog...cel4macro.html

Is there a way to pull the comment in the above example instead of the value?

Thanks Dom, but my goal is to be able to call it (formula) within ExecuteExcel4Macro.
On my previous post I linked a thread that has this code in it which is similar to what I'm running to retrieve the values of the cells:

Dim Data As String
    
    On Error GoTo label:
    'Data = "'" & Path & "[" & File & "]" & Sheet & "'!" & "$A$4"
    Data = """" & "'" & Path & "[" & File & "]" & Sheet & "'!" & Range("$A$4").Range("A1").Address(, , xlR1C1) & """"

    GetData = ExecuteExcel4Macro(Data)
label:
    MsgBox Err.Number & Err.Description

Unless I'm mistaken, I believe I should be able to enter a FORMULA in the following part of the code... hopefully there is a formula to extract comments.

Range("$A$4").Range("A1").Address(, , xlR1C1) & """"

GunNam