Troubleshooting

[kemperohlmeyer]

For some reason this code worked perfectly yesterday, yet today i get an error stating "Object Variable or With Block Variable not set". When i try to debug it goes to the FileName = range("a18") line. Can someone help shed some light?

thanks,
ko

Dim FileName As Range
Dim c As Range

Sub SaveAsWebPage()
' A macro that saves the pre-defined area as a webpage
' By Kemper Ohlmeyer 10/5/2006

For Each c In Range("List3")
Range("A3").Value = c.Value
Calculate
FileName = Range("a18")
Range("A1:T44").Select
With ActiveWorkbook.PublishObjects("08 - Snapshot info - current managers_7205")
.HtmlType = xlHtmlStatic
.FileName = FileName
.Publish (False)
.AutoRepublish = False
End With
ChDir "P:\Portfolio Mgmt - Due Diligence\WG new\Coded Spreadsheet Templates\Snapshot"
Next c
End Sub

 

[Joe4]

Two things I would recommend:

1. Unless you are declaring your variables publicly with the PUBLIC statement (which it appears you are not doing), declare your variables within the macro. So move the DIM statements inside your macro.

2. You should give variables names that are differently from any possible "reserved" words (words VBA uses for functions, methods, properties, etc). I don't know if "FileName" is a reserved word or not, but it very well could be. Try changing it to something like "MyFileName".

 

[Richard Schollar]

To set a range reference you will also need to use the Set keyword:

Set myFileName = Range("A18")

Best regards

Richard

Having said that, I'm not actually sure why you are defining FileName (or myFileName when renamed) as a range - looks like it should be a string.

 

[VoG]

It does seem to be a string. Maybe

 FileName = Range("a18").Value

would be better.