Without knowing how many rows you want to check, or whether the pattern in
Col E
will continue adding 111111 each time (which is assumed in the following
code) you might try something like the following. Adjust as needed

Option Explicit

Sub CheckDate()
Dim i As Integer, j As Integer, k As Long

j = 1
k = 222222

For i = 1 To 2 'number of rows to check
If Cells(i, 1) = DateValue(j & "/1/2005") _
And Cells(i, 1) <= DateValue(j + 1 & "/1/2005") - 1 Then
Cells(i, 5) = k
Else
'do nothing or maybe something else
End If
j = j + 1
k = k + 111111

Next i

End Sub

"Mslady" wrote:


If value is column A is Jan-05, fill in value of 222,222 in matching
column E.
If value in column A is Feb-05, fill in value of 333,333 in matchng
column E.
Column A is in this format (3/12/05).

How do i achieve this with VBA?
Thanks in advance ;)


--
Mslady
------------------------------------------------------------------------
Mslady's Profile: http://www.excelforum.com/member.php...o&userid=27776
View this thread: http://www.excelforum.com/showthread...hreadid=480299