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

Norman Jones,

I would kiss your feet if you were in front of me...the logic of that
VB code is quite the interesting bit of code...I am grateful that I
still get answers to some of these hard ass questions even at 5:32 AM
in the morning. You have saved me so much trouble instead of having to
use 300,000 names in a workbook...I sorta wish someone could have
provided this code to me earlier instead of having me run in circles
trying to figure out what was wrong with my workbook. Thanks so much!

-Shaka215


Norman Jones wrote:
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?


.