grazie della dritta.
ho provato a sviluppare l'istruzione con un ciclo while in modo che vengano analizzate le prime 300 colonne del fogli, ma nonostante la macro funzioni, alla fine mi da sempre errore a livello di If Cells (.....)
precedentemente avevo utilizzato al posto dell'if/else, il while/when, e mi dava lo stesso errore, a meno che nel primo while non dessi un valore limite del contatore < del numero di colonne da nascondere (ma questo valore è variabile e non prevedibile.
forse dovrei aggiungere del codice all'inizio che conti il nmero di colonne da nascondere, ma la cosa mi sembra pesante, e forse presenta gli stessi problemi di debug.

grazie in anticipo se qualcuno ha suggerimenti

Sub Nascondi()
'
' Nascondi Macro ' Nasconde le colonne gialle (con valore prima riga ="nascondi") dove sono inserite le distinte impieghi e lavorazioni '
'
Dim iColumn As Integer
Dim contatore As Integer
iColumn = 1
contatore = 0
Do While contatore < 300
contatore = contatore + 1
If Cells(1, iColumn) <> "nascondi" Then ' qui mi segna sempre errore
iColumn = iColumn + 1
Else Columns(iColumn).Select
Selection.EntireColumn.Hidden = True
iColumn = iColumn + 1
End If
Loop
End Sub