VBA Error

[juan4412]

On my machine this code works:

.SaveAs Filename:="C:\Ricardo\mail\" & Format(Range("G3").Value) & ".xls"

But on anothers PC it highlights the word "Format" and says object or library not installed, but they have the same references installed as I do.

What is throwing this error?

 

[AlphaFrog]

Not sure why it's throwing an error, but try using this instead since you are not changing the text format of the G3 value.

.SaveAs FileName:="C:\Ricardo\mail\" & Range("G3").Text & ".xls"

 

[juan4412]

I'd prefer not to have to change it since it works fine on my machine --- plus it would be a great deal of code to change.

Is it possibly a reference or library that I haveinstalled on my machine that is not on his?

 

[Colin Legg]

On your colleague's PC, when you check references in the VBA editor under Tools > Options, do any of the ticked references have the prefix "MISSING"?

 

[juan4412]

ADVERTISEMENT

Adobe Distiller is flagged as missing, but I didn't think that Adobe Distiller has anything to do with the feature that is throwing a debug error.

 

[Colin Legg]

Uncheck the missing reference and try to run the code again. You're correct that Format() is not from that library, but it is confusing Excel in the background.

 

[juan4412]

ADVERTISEMENT

Unchecking Distiller is still giving me the same debug error.

 

[Colin Legg]

If you change the line of code to this, it will still work on your PC and may work on your colleague's:

.SaveAs Filename:="C:\Ricardo\mail\" & VBA.Format(Range("G3").Value) & ".xls"

Give it a try and let us know?

 

[juan4412]

Well he is pulling the report off of a network drive that we both can access.

It works if I preface the statement with VBA.Date -- But again that is going to leave a LOT of code to change.

Is there another option that I have?

 

[AlphaFrog]

You could use the Find\Replace All (Ctrl+H) feature to make the edits to your code en masse.

Find What: Format(
Replace with: VBA.Format(
Replace All