Zo dan:
Wigi
Code:
Sub Test()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Index <= Worksheets.Count - 4 Then
ws.Cells.EntireColumn.Hidden = False
ws.Range(ws.Range("A3"), ws.Cells.SpecialCells(xlLastCell)).ClearContents
End If
Next
Calculate
End Sub
Wigi