Thread: Delete Activecell if it is not numeric
View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.programming
FIRSTROUNDKO via OfficeKB.com FIRSTROUNDKO via OfficeKB.com is offline
external usenet poster
  
Posts: 65
Default Delete Activecell if it is not numeric
Dave,

Thanks for a nice easy code

Dave Peterson wrote:
With ActiveCell
If Application.IsNumber(.Value) Then
'skip it
Else
.Delete shift:=xlShiftUp 'or xlshifttoleft
'or
'.EntireRow.Delete
'or
'.ClearContents
'or
'.Clear
End If
End With


I'm not sure what delete means in your case.


HI,

[quoted text clipped - 6 lines]
--
Message posted via http://www.officekb.com


--
Message posted via http://www.officekb.com

Reply With QuoteReply With Quote