Home |
Search |
Today's Posts |
|
#1
![]()
Posted to microsoft.public.excel.misc
|
|||
|
|||
![]()
Run-time error '438': Object doesn't support this property or method
I get the above error when the Worksheet array code below is executed even though the code line action is performed, I don't know what the error means and I can't figure out what is wrong. If ThisWorkbook.Name< "RFDS Tracker GA Market.xls" then Worksheets(Array("RFDS Tracker", "RFDS Tracker (2)")).Delete End if |
#2
![]()
Posted to microsoft.public.excel.misc
|
|||
|
|||
![]()
Those lines of code are perfectly valid. Are you sure that this is where the
error is being generated? If so are you sure it is not an error 9 subscript out of range which would indicate that one or more of the sheets you intend to delete do not exist. -- HTH... Jim Thomlinson "Ayo" wrote: Run-time error '438': Object doesn't support this property or method I get the above error when the Worksheet array code below is executed even though the code line action is performed, I don't know what the error means and I can't figure out what is wrong. If ThisWorkbook.Name< "RFDS Tracker GA Market.xls" then Worksheets(Array("RFDS Tracker", "RFDS Tracker (2)")).Delete End if |
#3
![]()
Posted to microsoft.public.excel.misc
|
|||
|
|||
![]()
Thanks Jim. I figured it out.
If ThisWorkbook.Name < "RFDS Tracker GA Market.xls" Then Worksheets(Array("RFDS Tracker", "RFDS Tracker (2)")).Select ActiveWindow.SelectedSheets.Delete End If "Jim Thomlinson" wrote: Those lines of code are perfectly valid. Are you sure that this is where the error is being generated? If so are you sure it is not an error 9 subscript out of range which would indicate that one or more of the sheets you intend to delete do not exist. -- HTH... Jim Thomlinson "Ayo" wrote: Run-time error '438': Object doesn't support this property or method I get the above error when the Worksheet array code below is executed even though the code line action is performed, I don't know what the error means and I can't figure out what is wrong. If ThisWorkbook.Name< "RFDS Tracker GA Market.xls" then Worksheets(Array("RFDS Tracker", "RFDS Tracker (2)")).Delete End if |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Error: "Excel encountered an error and had to remove some formatti | Excel Discussion (Misc queries) | |||
Counting instances of found text (Excel error? Or user error?) | Excel Worksheet Functions | |||
I have Error 1919 Error Configuring ODBC dataSource Database | Excel Discussion (Misc queries) | |||
Excel 2003 Macro Error - Runtime error 1004 | Excel Discussion (Misc queries) |