Multiple sheets in single workbook into new files only using cell format/values

I tried to run the macro, but it came back with the following error:

referencing the line: Dim ws As Worksheet
"BASIC syntax error
Unknown data type Worksheet"

What did I do wrong?

**I should note that I tried this on Open Office... I'll try it on MS Excel before stating that it was unsuccessful...