Greetings:
Judging by problem show below, I think I better book in for another year
of pre-school.

Code shown below: always skips from line 2 to line 4.
I have my codes in a file called Menu.xls. (will become an add-in, when
completed)
In case it was "reading" that file, I copied the code into a file called
EM_1234.xls
It still won't work.

A: What am I missing in my code?
B: Do I need something to indicate that FName is a short form for FileName?
In order for VB to understand it?
C: Will the code, when stored (in its entirety) as an add-in, "know" that
it has
to work on the currently active workbook?

Sub CheckFileName()
' If File Name Starts with 'EM_', Then Process CALL Not Allowed
' If File Name does NOT start with 'EM_', Then Exit Sub

1 Dim FName As String
2 If Left(FName, 3) = "EM_" Then
3 Call NotAllowed
4 Else: Exit Sub
5 End If

End Sub

You declared FName as a string, but it has no value it is empty. You need to
assign the value to it. E.g. FName = activeworkbook.Name
--
Tony Green


"BEEJAY" wrote:

Greetings:
Judging by problem show below, I think I better book in for another year
of pre-school.

Code shown below: always skips from line 2 to line 4.
I have my codes in a file called Menu.xls. (will become an add-in, when
completed)
In case it was "reading" that file, I copied the code into a file called
EM_1234.xls
It still won't work.

A: What am I missing in my code?
B: Do I need something to indicate that FName is a short form for FileName?
In order for VB to understand it?
C: Will the code, when stored (in its entirety) as an add-in, "know" that
it has
to work on the currently active workbook?

Sub CheckFileName()
' If File Name Starts with 'EM_', Then Process CALL Not Allowed
' If File Name does NOT start with 'EM_', Then Exit Sub

1 Dim FName As String
2 If Left(FName, 3) = "EM_" Then
3 Call NotAllowed
4 Else: Exit Sub
5 End If

End Sub

If you want to test whether the active workbook name start with EM_
then try this:

Sub CheckFileName()
' If File Name Starts with 'EM_', Then Process CALL Not Allowed
' If File Name does NOT start with 'EM_', Then Exit Sub

1 Dim FName As String
FName = ActiveWorkbook.Name
2 If Left(FName, 3) = "EM_" Then
3 Call NotAllowed
4 Else: Exit Sub
5 End If

If you want to test whether the active workbook name start with EM_
then try this:

Sub CheckFileName()
' If File Name Starts with 'EM_', Then Process CALL Not Allowed
' If File Name does NOT start with 'EM_', Then Exit Sub

1 Dim FName As String
FName = ActiveWorkbook.Name
2 If Left(FName, 3) = "EM_" Then
3 Call NotAllowed
4 Else: Exit Sub
5 End If

Works like a dream - Thanks so much


"Karim Benabd" wrote:

If you want to test whether the active workbook name start with EM_
then try this:

Sub CheckFileName()
' If File Name Starts with 'EM_', Then Process CALL Not Allowed
' If File Name does NOT start with 'EM_', Then Exit Sub

1 Dim FName As String
FName = ActiveWorkbook.Name
2 If Left(FName, 3) = "EM_" Then
3 Call NotAllowed
4 Else: Exit Sub
5 End If