>>776こちらこそ失礼しました。
Private Function nnn(ByVal fname As String)
　If fname= …
End Function
みたいにして処理するファイルの数だけこの関数を呼び出すってのはどうでしょうか･･･