Hente data fra anden fil via makro

Prøv at vise makroen her.

Application.Run ("ThisWorkbook.MakroArb2")

    Application.ScreenUpdating = False

    Sheets("R").Unprotect Password:="xxxx"
    Windows("Personal.xlsx").Activate
    Sheets("PT").Visible = True
    Sheets("PT").Select
    Range("s234:s318").Select
    Selection.Copy
    Sheets("PT").Visible = False
    ActiveWindow.ActivatePrevious
    If Sheets("R").Visible = True Then
    Sheets("R").Select
    Range("a6:a86").Select
    ActiveSheet.Paste
    Range("a4:a86").Select
    Selection.Replace What:="%%%", Replacement:="=", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Sheets("R").Protect Password:="xxxx", DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingRows:=True
    Else
    End If
End Sub

Ok - vender tilbage senere..

Umiddelbart kan jeg desværre ikke gennemskue det..

Umiddelbart ingen løsning.