Re: Application.Goto Reference:="ActiveCell.Value"??? Whats wrong??

Hi Shaka,

Try:

'=============>>
Public Sub TesterA01()
Dim SH As Work***
Dim arr As Variant
Dim rng As Range

arr = Split(ActiveCell.Value, "!")

Set SH = Sheets(arr(0))
Set rng = SH.Range(arr(1))

Application.Goto Reference:=rng

End Sub
'<<=============


---
Regards,
Norman



<Shaka215@xxxxxxxxx> wrote in message
news:1152693389.042004.5190@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Hello fellow programmers! I am in need of some help trying to get my
macros to goto a specific location from a ***...I'd figure the code
would look like this...

Application.Goto Reference:="ActiveCell.Value"

The problem is I am told my refrence isn't correct..however I have
tried to format it the way it works when I use the "Goto" function of
Excel (CRTL + G) the format I am using in the active cell is...

SheetDB1!B65500

When I copy this code and use the goto function it works fine but the
macro is failing to realize what it is I am trying to do...Any ideas?



.