Help with FileSearch VBA Code

[nat30]

I'm a complete code novice - can someone help with two problems I'm having since upgrading to Excel 2007?

I understand that FileSearch is no longer used in Excel - how can I rewrite this code to work?
Private Sub CommandButton2_Click()
Dim x As String
Dim y As String
Dim z As String
z = ActiveSheet.Cells(2, 6).Value
x = ActiveSheet.Cells(1, 6).Value
x = x & ".pdf"
y = ActiveSheet.Cells(3, 6).Value
Set fs = Application.FileSearch
With fs
.LookIn = z
.Filename = x
If .Execute > 0 Then
ActiveWorkbook.FollowHyperlink Address:=, _
NewWindow:=True
Else
MsgBox "No signature files were found."
End If
End With
End Sub

Also, how can I change this code to refresh the Active sheet only? At the moment it refreshes all sheets
Private Sub CommandButton3_Click()
Range("A5").Select
ThisWorkbook.RefreshAll
End Sub

I've spent hours trying to figure these out with no success - Help appreciated - Thanks <!-- / message --><!-- BEGIN TEMPLATE: ad_showthread_firstpost_sig --><!-- END TEMPLATE: ad_showthread_firstpost_sig --><!-- edit note -->

 

[Datsmart]

Duplicate thread:
http://www.mrexcel.com/forum/showthread.php?p=2216947#post2216947

Please continue in your original thread.
This will keep all suggestions in one location and simplify both your understanding and those that are trying to help you.

If you are not getting a timely response, add more detail to your question.
This will also bring your post to the top of the forum.

 

[nat30]

Hi, I'm new to the forum and I don't know how to edit my original post, which why I posted again with a different title hoping to get some urgent help