Sub GotoName2() Application.Goto Reference:= ActiveWorkbook.names("NameArea").Name, Scroll:=True End Sub