How do I write an 'if exist" statement
Hi folks My macro copys a sheet (template) and renames it by todays date Sheets("Template (2)").Select Sheets("Template (2)").Name = sName How do I write: if exist a sheet by the name sName cancel the process , delete Template 2 else Sheets("Template (2)").Select Sheets("Template (2)").Name = sName endif thanks JKohn john Images of home (NZ) http:\\www.myplace.co.nz/home What we are up to in the UK http:\\www.myplace.co.nz |
How do I write an 'if exist" statement
'----------------------------------------------------------------- Function SheetExists(Sh As String, _ Optional wb As Workbook) As Boolean '----------------------------------------------------------------- Dim oWs As Worksheet If wb Is Nothing Then Set wb = ActiveWorkbook On Error Resume Next SheetExists = CBool(Not wb.Worksheets(Sh) Is Nothing) On Error GoTo 0 End Function -- HTH RP (remove nothere from the email address if mailing direct) "John in Surrey" wrote in message ... Hi folks My macro copys a sheet (template) and renames it by todays date Sheets("Template (2)").Select Sheets("Template (2)").Name = sName How do I write: if exist a sheet by the name sName cancel the process , delete Template 2 else Sheets("Template (2)").Select Sheets("Template (2)").Name = sName endif thanks JKohn john Images of home (NZ) http:\\www.myplace.co.nz/home What we are up to in the UK http:\\www.myplace.co.nz |
All times are GMT +1. The time now is 02:19 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com