Hi

I have the following code which should copy values in a
sheet and then paste them into a new sheet but it comes up
with the error 'Subscript not in range'

Does anyone have any ideas why this is happening?

Thanks

Sub Import_Crystal()

Dim fname As String


ChDrive "S"
ChDir "S:\Kingston\FA\Overseas Payments\Overseas Payments
Public\Ed"
fname = Application.GetOpenFilename()

Workbooks.Open (fname)
Windows(fname).Activate
Sheets("TEST11").Select
Range("A1:AQ100").Select
Selection.Copy
Windows("Remittance Procedure").Activate
Sheets("Crystal_Table").Select
ActiveSheet.Paste
End Sub