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]
Bookmarks