Opening XLSM file [SOLVED]

[maxkoy]

Hi all,

I have a code where i need to open a other workbook. I works fine with .xls files, but when im trying to open a .xlsm file i just get a error? Anyone can see why?

 
Private Sub CommandButton1_Click()
Dim i As Integer
Dim pw            As String
Dim path            As String
Dim clor            As String
 
Application.ScreenUpdating = False

With ListBox1
For i = 0 To .ListCount - 1
If .ListIndex = i Then pw = Range("B" & i + 4).Value
If .ListIndex = i Then path = Range("G" & i + 4).Value
If .ListIndex = i Then clor = Range("I" & i + 4).Select
Next i
End With
 
'ERROR COMES HERE!
    Application.Workbooks.Open Filename:=path