Hi all

I'm having a bit of trouble. I built something for a client at work in Windows Excel 2007 - and they now have Mac with Office 2011, and the code no longer runs.

I've been having a look up online and trying to get my head round it, but I haven't been able to. Is anyone able to help me get in the right direction of getting this code suitable for a Mac on Office 2011?

Thanks in adance

 Dim appWD As Word.Application
    Dim wddoc As Word.Document
    Set appWD = CreateObject("Word.Application.8")
    Set wddoc = appWD.Documents.Add
    appWD.Visible = True
    
    With appWD.ActiveDocument.PageSetup
.TopMargin = appWD.InchesToPoints(0.3)
.BottomMargin = appWD.InchesToPoints(0.3)
.LeftMargin = appWD.InchesToPoints(0.3)
.RightMargin = appWD.InchesToPoints(0.3)
End With
    
    
    Sheets("Quote").Range("A1:N57").Copy
    appWD.Selection.PasteSpecial Link:=False, DataType:=wdPasteEnhancedMetafile, Placement:= _
        wdInLine, DisplayAsIcon:=False
        
        Sheets("Solar Projection").Range("A1:P53").Copy
    appWD.Selection.PasteSpecial Link:=False, DataType:=wdPasteEnhancedMetafile, Placement:= _
        wdInLine, DisplayAsIcon:=False
        
        Sheets("SAP Figures").Range("A1:J46").Copy
    appWD.Selection.PasteSpecial Link:=False, DataType:=wdPasteEnhancedMetafile, Placement:= _
        wdInLine, DisplayAsIcon:=False
        
        Sheets("Payback Table").Range("A1:J51").Copy
    appWD.Selection.PasteSpecial Link:=False, DataType:=wdPasteEnhancedMetafile, Placement:= _
        wdInLine, DisplayAsIcon:=False
        
        appWD.Activate