VBA to hyperlinks all files within a folder

[FGaxha]

I have a VBA to list all files from a folder.
How to I select only excel file from a folder? Help Please?
VBA:
Sub InsertFilesInFolder()
Dim sPath As String, Value As String
Dim WS As Worksheet
Set WS = Sheets.Add
sPath = ActiveWorkbook.Path & "\"
Value = Dir(sPath, &H1F)
WS.Range("A1") = "Filename"
Set StartCell = WS.Range("A2")
Do Until Value = ""
If Value = "." Or Value = ".." Then
Else
If GetAttr(sPath & Value) = 16 Then
Else
If Value <> ActiveWorkbook.Name And Value <> "~$" & ActiveWorkbook.Name Then
StartCell.Hyperlinks.Add Anchor:=StartCell, Address:= _
Value, TextToDisplay:=Value
Set StartCell = StartCell.Offset(1, 0)
End If
End If
End If
Value = Dir
Loop
End Sub

 

[John_w]

How to I select only excel file from a folder? Help Please?

Change:

Value = Dir(sPath, &H1F)

to:

Value = Dir(sPath & "*.xls*", &H1F)

 

[FGaxha]

Change:

Value = Dir(sPath, &H1F)

to:

Value = Dir(sPath & "*.xls*", &H1F)

Thank you John_w.
I appreciate your help.