A Misbehaving Macro

[laingy24]

I want the below macro to leave the user on cell A3 in the sheet "Crew Satisfaction Data" but for some reason it leaves the user on a different sheet ("Response Calculator") that isn't mentioned at all in the Macro.

Can anyone tell me why and how I can fix it?

Sub SORTING_DATA()
'
' SORTING_DATA Macro
'

'
Columns("C:C").Select
Selection.Copy
Application.CutCopyMode = False
Sheets("Tidied CS Data").Select
Columns("B:E").Select
Selection.ClearContents
Sheets("Raw CS Data").Select
Selection.Copy
Sheets("Tidied CS Data").Select
Range("B1").Select
ActiveSheet.Paste
Sheets("Raw CS Data").Select
Columns("F:G").Select
Application.CutCopyMode = False
Selection.Copy
Columns("F:H").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tidied CS Data").Select
Range("C1").Select
ActiveSheet.Paste
Sheets("Crew Satisfaction Data").Select
Range("A3").Select
End Sub

Ewan :O)

 

[steve the fish]

Your macro has lots of unqualified ranges. By that i mean they have no corresponding sheet to go with the range. That means excel will use the active sheet at the time the line executes. Which sheet is the active sheet when you start running the macro? I cant see any possible way that macro leaves you on any other cell than cell A3 of Crew Satisfaction Data sheet unless it doesnt complete. See if this does the same thing noting that each range has a corresponding sheet bar the last where we already know Crew Satisfaction Data is the active sheet:

Sheets("Raw CS Data").Columns("C:C").Copy Sheets("Tidied CS Data").Range("B1")
Sheets("Raw CS Data").Columns("F:H").Copy Sheets("Tidied CS Data").Range("C1")
Sheets("Crew Satisfaction Data").Select
Range("A3").Select