denne er efter hukommelsen, så ingen garenti. ;-))
If objWB Is Nothing Then if dir(strFilename) <> "" then Set objWB = Workbooks.Open(Filename:=strFilename, ReadOnly:=True) else msgbox strFilename & " eksisterer ikke" end if End If
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.