What does this error mean. Help.
 

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

What does this error mean. Help.
 

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

What does this error mean. Help.
 

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