Open .csv file and run a macro?????

[PV]

try this one

Workbooks.OpenText FileName:= _
myfile, _
Origin:=xlMSDOS, StartRow:=1,
DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=True,
Tab:=False, Semicolon:=True, _
Comma:=False, Space:=False, Other:=True,
OtherChar:=";"