كود لاظهار اعمده مختلفه او متجاوره

Sub yasser3()

Columns("D:XFD").EntireColumn.Hidden = True

Range("K:L,O:P,S:T,Z:Z").EntireColumn.Hidden = False

End Sub

Sub hide_some_columns()

Sheets("sheet1").Columns.Hidden = True

Range("b1,c1,d1,r1").EntireColumn.Hidden = False

Range("b1").Select

End Sub

Sub yasser3()

    Sheets("sheet1").Columns("B:XFD").EntireColumn.Hidden = True

    Sheets("sheet1").Range("a:v").EntireColumn.Hidden = False

End Sub

Sub hide_some_columns()


With Sheets("sheet1")

    .Columns.Hidden = True

    .Range("a1,b1,c1,g1").EntireColumn.Hidden = False

     Application.Goto Reference:=.Range("b1")

End With

Sheets("sheet1").Activate

End Sub