Sub 메모투명전환()

    Dim 시트 As Worksheet
    Dim 메모 As Comment
    Dim 투명도 As Single
    
    On Error Resume Next
    
    For Each 시트 In ThisWorkbook.Worksheets

        For Each 메모 In 시트.Comments
            
            투명도 = 메모.Shape.Fill.Transparency
            
            If 투명도 = 0 Then
            
                메모.Shape.Fill.Transparency = 0.7
                
            Else
            
                메모.Shape.Fill.Transparency = 0
        
            End If
        
        Next 메모

    Next 시트

End Sub
