What do you have in that cell? What error do you get?

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Hans Weustink" <Hans wrote in message
...
Hi,

I'm able to selecet a workbook, but not a sheet based on a reference like
so:

Sub test()
Dim AString
AString = Sheets("Input").Range("A1").Value

Windows(AString).Activate = works
Sheets(AString).Select = doesn't work
End Sub

Can someone think of a (alternative) way it will work?

Thanks in advance,
Hans Weustink