Thanks for the help, here is what I came up with, requires an extr
variable and it assumes you want to get rid off all the extensions
(Lucky thats what I needed):

Dim Scanmaplength as Interger
Scanmaplength = Len(Scanmaps(I, 1)) - 4
Scanmaps(I, 1) = Left(Scanmaps(I, 1), Scanmaplength

--
icdo
-----------------------------------------------------------------------
icdoo's Profile: http://www.excelforum.com/member.php...fo&userid=2734
View this thread: http://www.excelforum.com/showthread.php?threadid=50142