Tim,

Try

Cells(z.Row + 1, "B").Select


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"Tim" wrote in message
...
I want to set z as the active cell then have x equal to the
active cell + 1 or the cell below, The z factor can be skipped if
possible. My code is

Sub Macro3()
'
' Macro3 Macro
' Macro recorded 2/24/2004 by Husky User
'
Dim z As Range
Sheets("Eclipse").Select
Range("A1").Select
Cells.Find(What:="time", After:=ActiveCell,
LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, MatchCase:= _
False).Activate
Cells.Find(What:="days", After:=ActiveCell,
LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:=False) _
.Select
Set z = ActiveCell



Cells(z + 1, "B").Select <--------------------error
that you can not add a 1 to z
x = ActiveCell.Address
Selection.End(xlDown).Select
y = ActiveCell.Address
Range(x, y).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet1").Select
Range("B2").Select
ActiveSheet.Paste

End Sub