Dim rng as Range
set rng = Range(Range("H56") & "!A" & Application.Match( _
Range("A56"),Range(Range("H56") & "!A1").EntireRow,0))
Applicaton.GoTo Reference:=rng

If H56 on the Active sheet holds sheet2
and Sheet 2 row1 has the numbers 1 to 20 in columns A to T

and A56 on the activesheet holds the number 10, then this goes to
Sheet2!A10

--
Regards,
Tom Ogilvy


"Vladimir" wrote in message
...
Hi,

I struggle to create a macro with INDIRECT function that would jump to
different cells. What cell I want to jump to depends on a currently
selected
cell. This means I need to put a relative reference into the function.

Here is my function - I need to replace R1C1 expression with a realtive
one
(currently selected cell address with the same behavior as R1C1
expression).
How can I do that?

Application.Goto Reference:= _


"INDIRECT(CONCATENATE(R56C8,""!"",""a"",MATCH(R56C 1,INDIRECT(CONCATENATE(R56
C8,1)),false)))"

Whatever I do I get following error mesage:
Run-time error '1004'

Thanks in advance
Vladimir