Tom,

As always - you came through...

Had to remove the line continuation ( _ )
and the . from .columns
my system didn't like either of those.

Now it works!

Tried you For ... Next loop
but didn't need it after your With ... End With

still don't understand why my code worked in one module, but not in
the other....

Thanks for getting me out of a mind-twister!!!

--
steveB

Remove "AYN" from email to respond
"Tom Ogilvy" wrote in message
...
With ThisWorkbook.Sheets(WSn) _
.Range(.Columns(1), .Columns(col2 + 1)).Hidden = False
.Range(.Columns(2), .Columns(col1)).Hidden = True
End With

Assuming Col2 has a value between 1 and 255
Col1 has a value between 1 and 256

No merged cells.

--
Regards,
Tom Ogilvy

ThisWorkbook.Sheets(WSn).Range(Columns(2), Columns(col1)).Hidden = True
"STEVE BELL" wrote in message
news:FLIRe.44730$yv2.31525@trnddc04...
First - thanks for any help.

Using XL 2000 on Win XP

I am using the following lines of code in 2 places in my workbook to
show and hide columns:

ThisWorkbook.Sheets(WSn).Range(Columns(1), Columns(col2 + 1)).Hidden =
False
ThisWorkbook.Sheets(WSn).Range(Columns(2), Columns(col1)).Hidden = True
<<<<
error 1004

In another module where I use the actual sheet name - it works fine.

ThisWorkbook.Sheets("Summary").Range(Columns(2), Columns(x)).Hidden =
False
'some code
ThisWorkbook.Sheets("Summary").Range(Columns(2), Columns(col1)).Hidden =
True

But in this module where I am using a string variable for the sheet name
the second line errors out. (1004) I even copied the working code over
and
changed
the sheet name to the variable.

Double checked the variable values and they appear to be reasonable

Can any body try to explain this to me...?

Thanks...
--
steveB

Remove "AYN" from email to respond