VBA: Trying to locate and save one worksheet from workbook.

[wageslave101]

I was looking for some help in creating a sub similiar to the one below

Sub SaveWorksheet()
Application.DisplayAlerts = False
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
sh.Select
sh.Copy
ActiveWorkbook.SaveAs Filename:=sh.Name
ActiveWorkbook.Close
Next
Application.DisplayAlerts = True
End Sub

I'm looking to locate the sh called Entry and then save it seperately - there are multiple sheets in the workbooks that this will be applied to, but I only need to pull the sh named Entry.

Thank you very much for your time.

WageSlave

 

[Richard Schollar]

Hi

Couldn't you simply adapt what you have or alternatively record a macro of you doing it?