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

suggest you start by posting your question to an Excel newsgroup. this
newsgroup answers questions about using macros in MS Access relational
database software (and, aside from being in a different software product,
macros in Excel are very, very different from macros in Access).


"Ryk" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> 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
>