Hi, as you can probably see this is my first posting here.
I've only just been tasked to get to grips with VBA and things ar
progressing slowly.

My main problem at this moment is that I am trying to decipher
problem in this Excel 2000 tool that a co-worker built. Unfortunatel
the guy was extremely talented and is no longer with us (passed away).

I think I may have identified an area that might be wrong but I simpl
to not have the experience to know for certain (and find a solution)

Here's the code in question:


Sheets("Client Matrix").Select
Application.Goto Reference:="EnChData"
Selection.Copy
Sheets("Engine List").Select
*Range("B5").Select
Do Until ActiveCell = ""
ActiveCell.Offset(1, 0).Range("A1").Select
Loop
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone
SkipBlanks:= _
False, Transpose:=False*
Range("A5").Select
Sheets("Client Matrix").Select
Application.CutCopyMode = False
Range("AQ1").Select

The data at 'EnChData' is there where it should be and I believe th
enboldened bit goes to the 'Engine List' sheet, selects B5, moves dow
to the next blank cell and then pastes the information fro
'EnChData'.

It doesn't work. Nothing gets pasted. I don't know if it's this
'ActiveCell.Offset(1, 0).Range("A1").Select' that is the proble
because it doesn't make sense to me.

Any help would be appreciated.

Cheers

--
Damin
-----------------------------------------------------------------------
Daminc's Profile: http://www.excelforum.com/member.php...fo&userid=2707
View this thread: http://www.excelforum.com/showthread.php?threadid=46594