Getting Macros to Run Together (with same range selection as input)

**OnErrorGoto0** · 02-08-2012, 04:07 PM

I was actually addressing the second part, but got the variable name wrong. Replace

Set CloudData = Application.InputBox("Please select a range with the incident information you wish to summarize.", _
                                         "Specify Incident Information", Selection.Address, , , , , 8)

with just

Set CloudData = Selection

I would also replace

ActiveSheet.OLEObjects.Add(ClassType:="Shell.Explorer.2", Link:=False, _
        DisplayAsIcon:=False, Left:=383.25, Top:=45, Width:=324.75, Height:= _
        225).Select
    ActiveSheet.Shapes("WebBrowser1").ScaleWidth 1.480369515, msoFalse, _
        msoScaleFromTopLeft
    ActiveSheet.Shapes("WebBrowser1").ScaleHeight 1.3966666667, msoFalse, _
        msoScaleFromTopLeft

with

With ActiveSheet.OLEObjects.Add(ClassType:="Shell.Explorer.2", Link:=False, _
        DisplayAsIcon:=False, Left:=383.25, Top:=45, Width:=324.75, Height:= _
        225).ShapeRange
    .ScaleWidth 1.480369515, msoFalse, msoScaleFromTopLeft
    .ScaleHeight 1.3966666667, msoFalse, msoScaleFromTopLeft
End With

**VTHokie11** · 02-08-2012, 04:34 PM

Thank you so much for that, I should have been able to figure that run off selection out. I don't really know where to start "Object doesn't support this property or method" problem.

I hope/think it should be possible as the tag cloud generating subroutine (the third subroutine called WordCloud) works when its used in isolation and prints to a WebBrowser already present on a sheet. I tested that portion of my code by having a sheet named "Cloud" that had a WebBrowser already on it

With Sheets("Cloud").WebBrowser1
    .Silent = True
    .Navigate (myFile)
    Do
        DoEvents
    Loop Until .ReadyState = READYSTATE_COMPLETE
    .Document.body.Scroll = "no"
End With

But now trying to incorporate it with the frequency creation subroutine "MakeTable3" it's telling me "Object doesn't support this property or method." But I know it does support it! Anyhow thanks again in advance for any help this forum is a life saver...can't wait to be done with this little tool and its so very close at this point.