What is the code to delete sheet2 and sheet3 in a close workbook from a
folder call C:\Budget I do want to keep sheet1 only.

Thank you in advance.

Regards,

your code will need to open that workbook

dim wb as workbook
dim sh as worksheet
set wb = workbooks.open("{full name and path}")

for each sh in wb.worksheets
if ws.name<>"Sheet1" then
Application.DisplayAlerts = False
ws.delete
Application.DisplayAlerts = True
end if
next
wb.close TRUE






"CAM" wrote:

> What is the code to delete sheet2 and sheet3 in a close workbook from a
> folder call C:\Budget I do want to keep sheet1 only.
>
> Thank you in advance.
>
> Regards,
>

Thanks Patrick for the tip

Regards

"Patrick Molloy" <(E-Mail Removed)> wrote in message
news:059F0387-6D3A-4220-9BB3-(E-Mail Removed)...
> your code will need to open that workbook
>
> dim wb as workbook
> dim sh as worksheet
> set wb = workbooks.open("{full name and path}")
>
> for each sh in wb.worksheets
> if ws.name<>"Sheet1" then
> Application.DisplayAlerts = False
> ws.delete
> Application.DisplayAlerts = True
> end if
> next
> wb.close TRUE
>
>
>
>
>
>
> "CAM" wrote:
>
>> What is the code to delete sheet2 and sheet3 in a close workbook from a
>> folder call C:\Budget I do want to keep sheet1 only.
>>
>> Thank you in advance.
>>
>> Regards,
>>