Japanese language Macro help

  • Thread starter Thread starter Steve McBride
  • Start date Start date
S

Steve McBride

I received a file from Japan that, when opened, immediately reports a
compile error for an "Expected end of statement".

The following is the text of the macro (watch for wrap):

Sub INP_UT.\Z¦()
Attribute INP_UT.\Z¦.VB_Description = "f}fNf<L~^"ú : 2001/6/11
f?[fU[-¼ : XXX"
Attribute INP_UT.\Z¦.VB_ProcData.VB_Invoke_Func = " \n14"
'
' INPUT.\Z¦ Macro
' f}fNf<L~^"ú : 2001/6/11 f?[fU[-¼ : XXX
'
'
Sheets("IN PUT").Visible = True
Sheets("IN PUT").Select
End Sub
Sub DATA.\Z¦()
'
' INPUT.\Z¦ Macro
' f}fNf<L~^"ú : 2001/6/11 f?[fU[-¼ : XXX
'
'
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
Sheets("DATA").Visible = True
Sheets("DATA").Select
ActiveSheet.Unprotect
End Sub

At the error, the cursor is positioned on the "\" of Sub INP_UT.\Z¦().

There are 6 different modules and two classes in this workbook, and I, who
can barely use Macro recorder, am definitely lost trying to figure out what
it's trying to do.

I tried making everything after Sub IN_PUT a comment, which just forced
another Expected end of statement error to arise in another module.

First question is; Am I out of luck because of the language conversion, or
is there a way to determine what's supposed to happen?

BTW, there is no "IN_PUT" or "DATA" worksheets (at least visible or that I
can find).

TIA,
Steve
 
Hi Steve,
The lines that turn RED in the Visual Basic editor indicate a syntax
error the you can correct by either
joining the line back together on one line, or use the continuation character
which is a space followed by an underscore.
 
Back
Top