ExcelBanter - InputBox to get user hidden columns question

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