Use:
Sub LastColumn_Number()
num = ActiveSheet.UsedRange.Columns.Count
numq = ActiveSheet.UsedRange.Column - 1
MsgBox num + numq
End Su
--
david
-----------------------------------------------------------------------
davidm's Profile:
http://www.excelforum.com/member.php...fo&userid=2064
View this thread:
http://www.excelforum.com/showthread.php?threadid=38980