variable = current cell in VB

[Tim]

Trying to make the variable z equal to the cell previously found by the scrip

Sheets("Eclipse").Selec
Range("A1").Selec
Cells.Find(What:="time", After:=ActiveCell, LookIn:=xlFormulas, LookAt
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=
False).Activat
Cells.Find(What:="days", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
.Selec
z = Cells.Find(What:="days", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
.Selec
Cells(z + 1, "B").Valu

x = ActiveCell.Addres
Selection.End(xlDown).Selec
y = ActiveCell.Addres
Range(x, y).Selec
Application.CutCopyMode = Fals
Selection.Cop
Sheets("Sheet1").Selec
Range("B2").Selec
ActiveSheet.Paste

 

[Tom Ogilvy]

set z = Cells.Find(What:="days", After:=ActiveCell, LookIn:=xlFormulas,
LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:=False)

z.Select

 

[Tim]

Thanks Tom

 

[Tim]

When i try and run that code Tom it says that z is not defined properly, failed to provide a valid object qualifier.

 

[Tom Ogilvy]

Dim z as Range

--
Regards,
Tom Ogilvy

When i try and run that code Tom it says that z is not defined properly,

failed to provide a valid object qualifier.

 

[Bob Phillips]

Did you declare z as a range?

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

When i try and run that code Tom it says that z is not defined properly,

failed to provide a valid object qualifier.