Wildcard in Macro

[andonny]

Hi,
I like to delete a cell which has a date in it. The date could be anything and I thought maybe if I use a wildcard */02 it might work. The dates are formated as 9/18/02. At the moment I use the macro below but it only works with the text "Date ".

'Sub DelRowInCulumn_A()
Dim RowNum As Integer
Dim LastRow As Integer

With Worksheets("CopiedFromWord")
LastRow = Cells(Rows.Count, "B").End(xlUp).Row
' Move cells to left if 'Date' is found
For RowNum = LastRow To 1 Step -1
If Range("B" & RowNum).Value = "Date " Or Range("B" & RowNum).Value = "*/02" Then
Cells(RowNum, 1).Select
Selection.Delete Shift:=xlToLeft
Cells(RowNum + 1, 1).Select
Selection.Delete Shift:=xlToLeft
End If
Next RowNum
Range("A1").Select
End With
'End Sub

Your help is very much appreciated
Andonny

 

[Joe Was]

Copy this to a Sheet module, Select (Block) Range that you want the code to run on and Run the Macro. JSW

Sub DDate()
'Select Range to test then run Sub.
Set myRange = Selection
For Each C In myRange
If IsDate(C) = True Then
C.ClearContents
End If

Next C
End Sub

 

[andonny]

Hi,
Thank you for your kind reply.
I just realized that the cell is actually formatted as general and not as Date.

Thanks a million for your help
Andonny
This message was edited by andonny on 2002-09-19 19:46