jcarroll01
Board Regular
- Joined
- Jun 17, 2005
- Messages
- 122
I get the
Compile error: Can't find project or library error.
Going into Tools--->references and there are no references that start with "missing" Are there any spcific references that SHOULD be there or "checked"
Once I clear the error there is a word "Left" highlighted - here is the section in question.
reInput:
On Error Resume Next
Set rngSelection = Application.InputBox(strMsg1, Left(strMsg2, 46),
Selection.Address, Type:=8)
If rngSelection Is Nothing Then Exit Sub
Err.Clear
On Error GoTo 0
On Error GoTo Errline
If rngSelection.Rows.Count > 30 Or rngSelection.Columns.Count > 26
Or rngSelection.Rows.Count = Rows.Count Then
Select Case MsgBox(strMsg2, vbQuestion + vbYesNoCancel)
Case vbNo: GoTo reInput
Case vbCancel: Exit Sub
End Select
End If
End If
Compile error: Can't find project or library error.
Going into Tools--->references and there are no references that start with "missing" Are there any spcific references that SHOULD be there or "checked"
Once I clear the error there is a word "Left" highlighted - here is the section in question.
reInput:
On Error Resume Next
Set rngSelection = Application.InputBox(strMsg1, Left(strMsg2, 46),
Selection.Address, Type:=8)
If rngSelection Is Nothing Then Exit Sub
Err.Clear
On Error GoTo 0
On Error GoTo Errline
If rngSelection.Rows.Count > 30 Or rngSelection.Columns.Count > 26
Or rngSelection.Rows.Count = Rows.Count Then
Select Case MsgBox(strMsg2, vbQuestion + vbYesNoCancel)
Case vbNo: GoTo reInput
Case vbCancel: Exit Sub
End Select
End If
End If