Many thanks.

So that is not the root of this problem after all.
I've looked at it since your help, but with no success,
and have posted anew with a description of how the
problem manifests itself.

I had wondered if the selection of more than 1 column
might be the cause. Apparently not.

Regards.

"Tom Ogilvy" wrote in message
...
Sub AAA()
Dim ExclColRng As Range
Cells.EntireColumn.Hidden = False
On Error Resume Next
Set ExclColRng = Application.InputBox("Use the left mouse " & _
"button with the Control key," & vbNewLine & "to select at least" _
& " one cell in each column " & vbNewLine & "(or the entire" _
& ".column), to indicate those" & vbNewLine & "Columns to be" _
& " hidden. Click OK. when done", Type:=8)
On Error GoTo 0
If Not ExclColRng Is Nothing Then _
ExclColRng.EntireColumn.Hidden = True


End Sub

Regards,
Tom Ogilvy



Stuart wrote in message
...
Can I develop this further to hide columns before printing,
or is there a better way, please?

Dim ExclColRng As Variant
Set ExclColRng = Application.InputBox("Use the left mouse " & _
"button with the Control key," & vbNewLine & "to select at least" _
& " one cell in each column " & vbNewLine & "(or the entire" _
& ".column), to indicate those" & vbNewLine & "Columns to be" _
& " hidden. Click OK. when done", Type:=8)

This seems to take the user's hidden columns into the inputbox, but
can I use this, and if so how, please?

Regards.


---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.505 / Virus Database: 302 - Release Date: 30/07/2003






---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.505 / Virus Database: 302 - Release Date: 30/07/2003