Excel 97 Macro Question

boydr · Apr 25th, 2002, 05:35 PM

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

Qroozn · Apr 25th, 2002, 05:38 PM

where abouts is the code bugging?

Colo · Apr 25th, 2002, 10:40 PM

Hi. What is your OS? Win2K?

Colo · Apr 26th, 2002, 12:02 AM

Hello again, If your OS were Windows2000, Pls check the following site.
Microsoft Knowledge Base
PRB: Error Messages When Editing, Running, or Recording VBA Macros in Office 97 Application on Windows 2000 (Q264743)
http://support.microsoft.com/default...;en-us;Q264743

boydr · Apr 26th, 2002, 04:39 AM

I'm running it on NT 4.0 Workstation (not by choice). So it's Office97 on NT 4.0.

Colo · Apr 26th, 2002, 08:35 AM

Hi. Sorry, I don't know why...
Maybe, someone helps you.

Apr 26th, 2002, 08:35 AM	#6
Colo MrExcel MVP Join Date: Mar 2002 Location: Kobe, Japan Posts: 1,420	Hi. Sorry, I don't know why... Maybe, someone helps you. __________________ Regards, Masaru Kaji aka Colo - Ex Microsoft MVP Since 2004 -2009

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Apr 25th, 2002, 05:35 PM	#1
boydr Board Regular Join Date: Apr 2002 Location: Arkansas Posts: 157	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

Apr 25th, 2002, 05:38 PM	#2
Qroozn Board Regular Join Date: Mar 2002 Location: Sydney/Brisbane , Australia Posts: 539	where abouts is the code bugging?

Apr 25th, 2002, 10:40 PM	#3
Colo MrExcel MVP Join Date: Mar 2002 Location: Kobe, Japan Posts: 1,420	Hi. What is your OS? Win2K?

Apr 26th, 2002, 12:02 AM	#4
Colo MrExcel MVP Join Date: Mar 2002 Location: Kobe, Japan Posts: 1,420	Hello again, If your OS were Windows2000, Pls check the following site. Microsoft Knowledge Base PRB: Error Messages When Editing, Running, or Recording VBA Macros in Office 97 Application on Windows 2000 (Q264743) http://support.microsoft.com/default...;en-us;Q264743

Apr 26th, 2002, 04:39 AM	#5
boydr Board Regular Join Date: Apr 2002 Location: Arkansas Posts: 157	I'm running it on NT 4.0 Workstation (not by choice). So it's Office97 on NT 4.0.