This is sufficient:

Code:
Sub M_snb()
  For Each sh In Sheets
    sn = sh.UsedRange
    For j = 1 To UBound(sn)
        c00 = c00 & vbCr & Join(Application.Index(sn, j, 0), ",")
    Next
  Next
  
  CreateObject("scripting.filesystemobject").createtextfile("G:\OF\summary.csv").write Mid(c00, 2)
End Sub