السلام عليكم
وجدت كود اخفاء اعمدة لكن متجاورة
H:I
ابحث عن كود يخفى اكثر من عمود و غير متجاورين
او بمعنى اصح ما هى الفاصله التى اضعها
بدلا من : لاخفاء اكثر من عمود و غير متجاورين
Private Sub CommandButton1_Click()
CommandButton1.Caption = IIf(CommandButton1.Caption = "Hide", "Show", "Hide")
Columns("H:I").Hidden = Not Columns("H:I").Hidden
End Sub