This means AString is name of the work book and
not name of the sheet.

Try
AString = "Input"
Sheets(AString).Select '= Will work

Sharad

"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