尝试重新调整公共数组时出错

如何解决尝试重新调整公共数组时出错

我试图在不同的宏中引用公共数组。这是用作另一个宏的“触发器”的第一个宏：

Option Explicit
Public FLAGNUM As Integer

Sub worksheet_change(ByVal target As Range)
Set target = Range("B13")
FLAGNUM = target.Value
If target.Value > 0 Then
Call Flags
End If

End Sub

这是第二个宏：

Option Explicit
Public FLAGNUM As Integer
Public FLAGSW As Double
Public FLAGSL As Double
Public FLAGSnorP As String

Sub Flags()
ReDim FLAGSW(FLAGNUM)
ReDim FLAGSL(FLAGNUM)
ReDim FLAGSnorP(FLAGNUM)

For i = 1 To FLAGNUM
FLAGSW(i) = InputBox("What is flag " & i & "'s width?")
FLAGSL(i) = InputBox("What is flag " & i & "'s length?")
FLAGSnorP(i) = InputBox("Is flag " & i & " nylon or polyester? (Enter N or P)")
Next i

End Sub

每次我尝试运行它时，我都会收到“预期数组”错误。我该如何解决这个问题？