Compile Error with Colo's HTMLmaker 4.2

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).

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
 

Forum statistics

Threads
1,221,621
Messages
6,160,879
Members
451,675
Latest member
Parlapalli

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top