ash3154 wrote:
Hi,

Spreadsheet with many columns:
In All column, Row4 I have dates:

What I like to do is:
"IF" I am in Column y "Any row" I would like to go up to Y4 and copy that
value down to another cell .
"IF" I am in Column de "Any row" I would like to go up to de4 and copy that
value down to another cell .

I wrote this thinking it may work, but I keep getting mismatch Type:
Sub Look4DATE()


Dim mycell As Range
Set mycell = ActiveCell.Offset(0, 0)
Dim myrange As Range
Set myrange = Range(ActiveCell.Offset(0, 0), mycell)

mycell.Select
ActiveCell.Offset(ActiveCell.Column & ActiveCell.Row & ":" &
ActiveCell.Column & "4").Select
Selection.Copy
Range("bE199").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False


End Sub

Maybe this:

Sub Look4DATE()
If Not Application.Intersect(Range(ActiveCell.Address), _
Range("Y:Y,DE:DE")) Is Nothing Then
Cells(4, ActiveCell.Column).Copy
Range("BE199").Select
Selection.PasteSpecial Paste:=xlPasteValues
End If
End Sub