creating new worksheet tab issue

[Mick S]

I am trying to copy paste special values on tab "april 2010". That works. Next I'm trying to create a new tab. That works. Then I want to move some data from April 2010 onto the newly created tab. That does not work. It gives me a subscript out of range error at:

Sheets("Open Orders").Range("a1").Select

What am I doing wrong with regards to moving the data once the second tab has been created? Also is there anyway to do this without selecting everything? I know that's 'slow'.

Sub DbDatabase_Conversion()

Dim wks As Worksheet

Set wks = Sheets("April 2010 Daily Board")

Application.DisplayAlerts = False
 
wks.Range("a:ca").Select
Selection.Copy
wks.Range("a1").Select
Selection.PasteSpecial Paste:=xlValues

Sheets.Add.Name = "OpenOrders"

wks.Range("A75:ca104").Select
Selection.Cut

Sheets("Open Orders").Range("a1").Select
Selection.PasteSpecial Paste:=xlValues


Application.DisplayAlerts = True

End Sub

[tlafferty]

You have a space in the worksheet name in one place in the code and no space in the worksheet name in the other:
OpenOrders
Open Orders

[Mick S]

I fixed that but now it fails at:

[code]wks.Range("A75:ca104").Select[code]

error msg is select method of range class failed

[tlafferty]

Sub DbDatabase_Conversion()

Dim wks As Worksheet

Set wks = Sheets("April 2010 Daily Board")

Application.DisplayAlerts = False
 
wks.Range("a:ca").Copy
wks.Range("a1").PasteSpecial Paste:=xlValues

Sheets.Add.Name = "OpenOrders"

wks.Range("A75:ca104").copy 'MUST BE COPIED, CAN'T PASTESPECIAL CUT
wks.Range("a75:ca104").clearcontents
Sheets("OpenOrders").Range("a1").PasteSpecial Paste:=xlValues


Application.DisplayAlerts = True

End Sub

[Mick S]

it doesn't like

Sheets("OpenOrders").Range("a1").PasteSpecial Paste:=xlValues

pastespecial method of range class failed

[Mick S]

never mind. i changed the range to "a1:ca29" and it worked