E
Ed
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
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