Delete cells with text, and shift cells left?

[Ryk]

I have this from surfing here and it not work. What I have is column A

with headings, and what I copy into this would look something like this

for example....
( Used | to show cells)

Value|of|item|is|45|23|12|blah|23|16


What I need it to end up looking like is...


Value|45|23|12|23|16


It would need look for text in cells and delete those cells and shift
left over 7-8 columns.


The
Sub MoveText()
Dim rCell As Range
Dim rCheck As Range
' either select a column, range or whatever on the sheet or
' set a value
'set rCheck=selection
Set rCheck = Range("D115")
For Each rCell In rCheck
If IsDate(rCell) Then
rCell.Offset(0, -1).Delete Shift:=xlToLeft
End If
Next
Set rCell = Nothing
Set rCheck = Nothing
End Sub


The " If IsDate(rCell) Then " above I tried changing to " If
Istext(rCell) Then" but that not work. Ok Ok I am not the brightest
excel Bulb heheh.


Thanks for any help


Dave

 

[Trevor Shuttleworth]

That code will never work for you. It is deleting cells with dates in them.

You'd need to set something up which checks for the text in the cells and
deletes them

Regards

Trevor