Function SheetExists on 64 bits

[zackete]

Hey there,

Does anyone knows how can I make this function compatible with 64 bits systems?

 Function SheetExists(strSheetName As String) As Boolean
     ' returns TRUE if the sheet exists in the active workbook
   SheetExists = False
   On Error Resume Next
   SheetExists = Len(Sheets(strSheetName).Name) > 0
   On Error GoTo 0
End Function

I was playing around with the PtrSafe but can't find the proper way to make it works :S

Thanks in advance!

 

[RoryA]

That function is already 64 bit compatible. (PtrSafe is only for API calls)

 

[zackete]

Thank you RoryA,

The code is working fine on my computer but I shared it with other fellows and they keep receiving the following error:

Compile error:

The code in this project must be updated for use on 64-bit systems.
Please review and update Declare statements and then mark them with the PtrSafe attribute.

Any advice?

 

[RoryA]

You must have API calls in your code somewhere, but that is not one of them.

 

[zackete]

Thank you so much RoryA. I'll check it out ^^

 

[RoryA]

Use the Find function in the VB Editor and search for the word 'Declare'