Function 메모(셀 As Range, Optional 작성자이름 As Boolean = False) As String
 
    Dim 메모내용 As String
 
    Application.Volatile
    
    On Error Resume Next
    
        메모내용 = 셀.Cells(1).Comment.Text
 
        If Err <> 0 Then

            메모 = ""
        
        Else
            
            If 작성자이름 = False Then
            
                메모내용 = Mid(메모내용, InStr(1, 메모내용, ":") + 1)
            
            Else
            
                메모내용 = Left(메모내용, InStr(1, 메모내용, ":") - 1)
            
            End If
            
            메모 = 메모내용
    
        End If
 
End Function