Hello,

One of my kind colleagues in this forum taught me how to hide an
unhide columns using a parameter query (run by a macro) by creatin
VBA. See the text in quotes below right after "InputBox".

Sub hidecolumns()
Columns("d:en").Hidden = False
x = InputBox("Enter 1 for DHS Recommendation. Enter 2 for PROJEC
Recommendation Enter 3 for FINAL Recommendation Enter 4 for Project/DH
Matches")
For Each c In Range("d1:en1")
If Right(c, 1) < x Then c.EntireColumn.Hidden = True
Next
End Sub

However, I have another question about this please.

I would like to be able to have the Enter 1, Enter2 text etc. eac
appear on a new line so that they are not jumbled up. See attached fil
and run the "Show some detail" macro. I suppose there is sme way t
insert a"new line" or "carriage return", but since I don't know VBA,
would appreciate any help. Thx.

lindas

Attachment filename: calwin fs training analysis 4-19-04-forum.xl
Download attachment: http://www.excelforum.com/attachment.php?postid=51725
--
Message posted from http://www.ExcelForum.com