Phelony
04-24-2009, 05:52 AM
Hi guys
This is alarmingly simple I know, but having trawled the net and attempted several different lines, I can't get the following to save as a binary workbook. (Several chunky macros and a small library of coding, drop downs and static data have resulted in a workbook that's 22mb when empty :eek: so binary is the way to go to spare the sanity of my IT guys!)
Sheets("Input Sheet Relationship").Select
Filename = range("D2")
ActiveWorkbook.SaveAs Filename:=Filename
FileExtStr = ".xlsb": FileFormatNum = 50
It's the last line, I know I've screwed it up somehow but I have no idea how. :doh:
:help please!
Thanks
Phel x
This is alarmingly simple I know, but having trawled the net and attempted several different lines, I can't get the following to save as a binary workbook. (Several chunky macros and a small library of coding, drop downs and static data have resulted in a workbook that's 22mb when empty :eek: so binary is the way to go to spare the sanity of my IT guys!)
Sheets("Input Sheet Relationship").Select
Filename = range("D2")
ActiveWorkbook.SaveAs Filename:=Filename
FileExtStr = ".xlsb": FileFormatNum = 50
It's the last line, I know I've screwed it up somehow but I have no idea how. :doh:
:help please!
Thanks
Phel x