I think you mean
Dim oWBS As Workbook
Dim oNewWb As Workbook

'<-not really necessary use Thisworkbook to refer to workbook with code
Set oWBS = ThisWorkbook
Set oNewWb = Workbooks.Add
ActiveWorkbook.SaveAs "NewWorkBook.xls"