Thread: Delete Activecell if it is not numeric
View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.programming
Dave Peterson Dave Peterson is offline
external usenet poster
  
Posts: 35,218
Default Delete Activecell if it is not numeric
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.


"FIRSTROUNDKO via OfficeKB.com" wrote:

HI,

How do I delete the Activecell if it is not numeric?

Thanks in Advance

FIRSTROUNDKO

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

--

Dave Peterson
Reply With QuoteReply With Quote