I have this macro I've modified multiple times now to get to work in the Mac version of Excel. Each step individually does what it is suppose to do, but when combined it breaks down.
Any help would be much appreciated. Here is the code:
Sub DOALL()
'Order of Operation
'1. Paste Data from another source in Temp Sheet (values only)
'2. Delete Data from PasteData Sheet
'3. Go back to Temp Sheet and copy data to clipboard
'4. Go back to PasteData Sheet and paste data copied to clipboard
'5. Go back to Temp Sheet and delete data
'6. End Macro by selecting Graph sheet and Send Received Message Box
'1. Paste Data from another source in Temp Sheet (values only)
Sheets("TEMP").Activate
Range("a1").PasteSpecial Paste:=xlPasteValues
ActiveSheet.Range("A1").Select
'2. Delete Data from PasteData Sheet
Sheets("PasteData").Activate
Sheets("PasteData").Cells.ClearContents
ActiveSheet.Range("A1").Select
'3. Go back to Temp Sheet and copy data to clipboard
Sheets("TEMP").Activate
Sheets("TEMP").Cells.COPY
ActiveSheet.Range("A1").Select
'4. Go back to PasteData Sheet and paste data copied on clipboard
Sheets("PasteData").Activate
Range("a1").PasteSpecial Paste:=xlPasteValues
ActiveSheet.Range("A1").Select
'5. Go back to Temp Sheet and delete data
Sheets("TEMP").Activate
Sheets("TEMP").Cells.ClearContents
ActiveSheet.Range("A1").Select
'6. End Macro by selecting Graph sheet and Send Received Message Box
Sheets("Graph").Select
MsgBox "Received " & Sheets("PasteData").Range("D1").Value & " Data"
End Sub
Bookmarks