I'm trying to run the following (which works in Excel 2000 assuming I have an existing sheet called "Cost Sheet") but it won't in Excel 97. Can anyone tell me how to do it in 97?
Sub BKHLCOST2()
Dim CurrSheet As String
Dim NewSheet As String
Dim I As Integer
CurrSheet = ActiveSheet.Name 'Gets name of current worksheet
'Sheets.Add 'Not used right now
Sheets("Cost Sheet").Select
Sheets("Cost Sheet").Copy After:=Sheets(2)
ActiveSheet.Name = Sheets(CurrSheet).Range("A8").Value
NewSheet = ActiveSheet.Name
' DC
Sheets(CurrSheet).Range("A8").Copy
Sheets(NewSheet).Range("H3").PasteSpecial Paste:=xlValues
'Vendor Name
Sheets(CurrSheet).Range("D2:F2").Copy Destination:=Sheets(NewSheet).Range("C1:E1")
End Sub
Sub BKHLCOST2()
Dim CurrSheet As String
Dim NewSheet As String
Dim I As Integer
CurrSheet = ActiveSheet.Name 'Gets name of current worksheet
'Sheets.Add 'Not used right now
Sheets("Cost Sheet").Select
Sheets("Cost Sheet").Copy After:=Sheets(2)
ActiveSheet.Name = Sheets(CurrSheet).Range("A8").Value
NewSheet = ActiveSheet.Name
' DC
Sheets(CurrSheet).Range("A8").Copy
Sheets(NewSheet).Range("H3").PasteSpecial Paste:=xlValues
'Vendor Name
Sheets(CurrSheet).Range("D2:F2").Copy Destination:=Sheets(NewSheet).Range("C1:E1")
End Sub