For Tom Ogilve re File check
 

Hi Tom,

Thankyou for your reply to my post
Checking if active file is correct version

I tried to reply but my browser won't co-operate, and I certainly didn't
wish to appear ungrateful!

Such a simple solution that has been eluding me for hours - at least the
syntax has.

This now works exactly as i wanted:


Public Function checkActiveFilename(sOpenFileName) As Boolean
Dim sNewFile As String
sNewFile = "C:\NewFolder\NewFile\"
If ActiveWorkbook.Path = sNewFile Then
checkActiveFilename = False
End If
End Function

Many thanks,

Matilda

For Tom Ogilve re File check
 

Your welcome. Glad it worked out.
--
Regards,
Tom Ogilvy


"Matilda" wrote:

Hi Tom,

Thankyou for your reply to my post
Checking if active file is correct version

I tried to reply but my browser won't co-operate, and I certainly didn't
wish to appear ungrateful!

Such a simple solution that has been eluding me for hours - at least the
syntax has.

This now works exactly as i wanted:


Public Function checkActiveFilename(sOpenFileName) As Boolean
Dim sNewFile As String
sNewFile = "C:\NewFolder\NewFile\"
If ActiveWorkbook.Path = sNewFile Then
checkActiveFilename = False
End If
End Function

Many thanks,

Matilda