Hi,

Thanks for the help in advance,

The "ActiveCell.Offset(0, -2).Value" is a date i.e 9/26/05
I need the "Range("L2").Value" to include the workdays function -1.
So, the result in L2 would be 9/23/05

WORKDAY("l2",-1) ...????


Sub test()
Sheets("Sheet1").Activate


If ActiveCell.Column = 4 Then
With Sheets("~DATA~")

.Range("L2").Value = ActiveCell.Offset(0, -2).Value

End With
Else: GoTo LineEnd
End If

End Sub


Dave