' note this only checks column A as hidden
If shtBDA.Columns("A:B").EntireColumn.Hidden = True Then
shtBDA.Columns("A:B").EntireColumn.Hidden = False
blRehideColumns = True
End If


shtBDA.Rows(lngBDAInd).Insert 'insert a new row
shtBDA.Rows(lngBDA_START_ROW).Copy
shtBDA.Rows(lngBDAInd).PasteSpecial

If blRehideColumns Then
shtBDA.Columns("A:B").EntireColumn.Hidden = True
End If






--
Regards,
Tom Ogilvy



"Jon in Canby Or." wrote in message
...
I'm reasonably proficient in VB6 and Access VBA but am an Excel neophyte
so
hopefully you can help me. Here's the scenario:
I do this to unhide some columns:
shtBDA.Columns("A:B").Select
If Selection.EntireColumn.Hidden = True Then
Selection.EntireColumn.Hidden = False
blRehideColumns = True
End If

then I do a bunch of stuff including this sort of thing:
shtBDA.Rows(lngBDAInd).Insert 'insert a new row
shtBDA.Rows(lngBDA_START_ROW).Copy
shtBDA.Rows(lngBDAInd).PasteSpecial

after all that whole bunch of stuff is done I'd like to re-hide the
columns
like this:
shtBDA.Columns("A:B").Select
If blRehideColumns Then
Selection.EntireColumn.Hidden = True
End If

but the .Select fails (I reckon) because the Rows...copy has that row
selected. I believe this becauseIt doesn't fail if I Debug and stop
processing, switch back to the sheet and hit escape to deselect the row
and
then continue processing.

How can I get that selection cleared from the Rows...copy statement?

Cheers,
Jon