Matt_Thompson
Board Regular
- Joined
- Apr 5, 2004
- Messages
- 101
Hi,
I thought I'd post this first just in case it's a more common error than I thought and then maybe mail it to one of the mods on this site.
I have downloaded Colo's HTMLmaker 4.2 and saved it. I then run it and it appears as an add-in. Each time I go to 'Convert to HTML' I get a compile error. I'll put the code in below and highlight where the error seems to be.
I am running Excel 2000 and have downloaded a new version from the link on this site. I don't have any other excel spreadsheets open only Lotus Notes and notepad.
Has anyone else had this problem?
The problem code is inside the arrows --> xxx <-- below and can be found in the HTML module (Mod_HTML).
I thought I'd post this first just in case it's a more common error than I thought and then maybe mail it to one of the mods on this site.
I have downloaded Colo's HTMLmaker 4.2 and saved it. I then run it and it appears as an add-in. Each time I go to 'Convert to HTML' I get a compile error. I'll put the code in below and highlight where the error seems to be.
I am running Excel 2000 and have downloaded a new version from the link on this site. I don't have any other excel spreadsheets open only Lotus Notes and notepad.
Has anyone else had this problem?
The problem code is inside the arrows --> xxx <-- below and can be found in the HTML module (Mod_HTML).
Code:
If RangeHasPivotTable(ActiveSheet.UsedRange) Then
blnPt = True
On Error Resume Next
With ActiveSheet.PivotTables(1)
Set rngSelection = Range(.TableRange2.Address)
.PivotSelect "", xlLabelOnly
Set rngPtLabel = Selection
End With
Err.Clear
On Error GoTo 0
On Error GoTo Errline
Else
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
If MsgBox(strMsg16, vbYesNo + vbQuestion) = vbYes Then blnFormulaLocal = True
If rngSelection.Columns.Count < 4 Then Set rngSelection = rngSelection.Resize(, 4)
intX = rngSelection.Columns.Count - 3
lngXX = rngSelection.Item(1).Row - 1