Hi I have found the code from one of the links given, I am having a problem
with the below code placed in a class when a change takes place it read from
an ini file but even when ini returns a text item the class don't see it?.
Can someone tell me why please
Regards
Charles

Private Sub App_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)
'
If GetFromINI("MsgFlag", "Msg", myFTPINI) = "1" Then
MsgBox "GALC Database is trying to load" & vbCrLf & _
"Please Close This File Down and Try again in a few mins"
End If
End Sub

No sign of a link, so I have no idea what GetFromINI is supposed to do.
However, are you sure it is supoosed to return the letter "1" upon in this
case ?
The number 1 or True (-1 in VBA) would seems more likely, but who knows.

NickHK

"vqthomf" <(E-Mail Removed)> ¼¶¼g©ó¶l¥ó·s»D:2603B7D4-AAAE-4590-8674-(E-Mail Removed)...
> Hi I have found the code from one of the links given, I am having a
> problem
> with the below code placed in a class when a change takes place it read
> from
> an ini file but even when ini returns a text item the class don't see it?.
> Can someone tell me why please
> Regards
> Charles
>
> Private Sub App_SheetChange(ByVal Sh As Object, ByVal Target As
> Excel.Range)
> '
> If GetFromINI("MsgFlag", "Msg", myFTPINI) = "1" Then
> MsgBox "GALC Database is trying to load" & vbCrLf & _
> "Please Close This File Down and Try again in a few mins"
> End If
> End Sub
>