การแสดง LastUpdate และการเขียน Macro ซ่อนColume

[คนพอเป็น]

1. ทำอย่างไรใช้ A2 แสดง LastUpdate ของไฟล์ ได้ครับ ว่ามีการ Save ครั้งสุดท้ายไปเมื่อไร
2. ทำไม่ผมใช้ VB เขียน ให้ซ่อน Colume จำนวนมากไม่ได้ครับ เช่นจาก X ถึง IV แต่ทำเองโดยไม่ใช้ VB กลับซ่ิอนได้ครับ

[Nongmod]

ข้อ 2 ครับ Code อย่างนี้ก็ได้ครับ Range(Cells(24), Cells(256)).EntireColumn.Hidden = True

[คนพอเป็น]

ทำไม่ได้ครับ มี Error เกิดขึ้น แมโคร หยุดการทำงานไปเลย
ผมแนบไฟล์มาเพิ่มเติมแล้วครับ
ในไฟล์จะใช้ Column ไปประมาณ A - EH
โดยที่แบ่งออกเป็น 12 เดือน ในแต่ละเดือนมีการแสดงของแต่ละ Column ที่ไกล้เคียงกัน
ผมอยากให้เมื่อเรียกใช้แมโครทำการซ่อน Column ที่ไม่ต้องการแสดงออกมา
เวลาทำเองโดยคลุมพื้นที่แล้วคลิกขวา ซ่อน สามารถทำได้ทุก Column เลย
แต่ทำไมเวลาให้ แมโครเป็นตัวจัดการ กลับซ่อนได้ไม่ถึง สามารถซ่อนได้ประมาณ เดือน 11 เท่านั้น
แล้ว ข้อ 1 ครับ จะเรียนใช้แมโครอะไรดีครับ

[Nongmod]

ผมซ่อนได้ทุก Column นะครับ แต่ไม่ทราบว่าคุณต้องการซ่อน column ไหนบ้างผมจึงเขียนมาแบบให้ใส่ Column เริ่มต้น เช่น B และใส่ Column สุดท้ายเช่น EH

Code เป็นตามนี้ครับ
Sub Macro1()
StColumn = InputBox("Please input First Column")
LastColumn = InputBox("Please input Last Column")
Range("" & StColumn & ":" & LastColumn & "").EntireColumn.Hidden = True
End Sub
ดูที่ไฟล์แนบได้เลยนะครับ

[sake]

LastUpdate ใช้ VBA แบบนี้ได้มั้ยครับ
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("Sheet1").Range("LastUpdate") = Date
End Sub
ตาม File แนบครับ

[sake]

File แนบครับ