Chip

just the ticket, brilliant as usual!
thanks

Tim

-----Original Message-----
Tim,

Try something like the following

With ActiveWindow.VisibleRange
MsgBox .Cells(.Cells.Count).Column
End With


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com