Move worksheet method failed

I am getting this error Move Method Of Worksheet Class Failed with the code below. Can anyone help, thanks a lot

[Code]
Sub MoveThem1()

Dim ws As Worksheet, ss As Worksheet, FolderName As String, Wb As Workbook
Application.ScreenUpdating = False
FolderName = ThisWorkbook.Path
Dim C As Range
Set thisWb = ThisWorkbook
For Each ws In thisWb.Worksheets
If ws.Name <> "Macro" And ws.Name <> "REMS_2014_0324 " Then
If Wb Is Nothing Then
ws.Activate
ActiveSheet.Move
Set Wb = ActiveWorkbook

Else

ws.Move After:=ss

End If

Set ss = ActiveSheet
End If

Next ws
Set Wb = ThisWorkbook
ThisWorkbook.Activate

Application.DisplayAlerts = False

Wb.SaveAs Filename:=Sheets("Macro").Range("E20") & ".xlsx"

w.Close
Application.DisplayAlerts = True


End Sub

[\Code]