Sziasztok!

Mit csináltam már megint rosszul?

Méééééé nem akar működni?

Köszönöm a kritikát! :-)

Sub Price_check()
'
' Price_check Macro

MsgBox "Open the file you want to check!"
Application.Dialogs(xlDialogOpen).Show


MsgBox "Open the PriceList!"
Application.Dialogs(xlDialogOpen).Show

PriceList = Workbooks(Workbooks.Count).Name
CheckFile = Workbooks((Workbooks.Count) - 1).Name

'Zöld

Workbooks(CheckFile).Worksheets(1).Range("A1").Select

    With Selection.Interior
        .ColorIndex = 43
        .Pattern = xlSolid
    End With

'Sárga

Workbooks(PriceList).Worksheets(1).Range("A1").Select

    Range("V1").Activate
    With Selection.Interior
        .ColorIndex = 36
        .Pattern = xlSolid
    End With

End Sub