IF statement Through VBA

[HSA1]

Converting this below code into an if statement.

For example: If Sheet2 is not exist, code will copy data from Sheet1 and create sheet2 then will paste data in Sheet2 and will return to Sheet1.

If Sheet2 is exist then Nothing.3

Any help you could provide would be much appreciated

When i run this code again it gives error If Sheet2 is already exist then it should return nothing

Sub sheet()
Dim Destination As Worksheet
Set Destination = Worksheets.Add(After:=Worksheets("Sheet1"))
Destination.Name = "Sheet2"
Sheets("sheet1").Range("A:D").Copy Sheets("sheet2").Range("A:D")
Sheets("Sheet1").Select
   Range("A1").Select
End Sub

 

[Marc L]

Use ISREF worksheet function like in this sample :​

renaming tab names for multiple workseets based on a cell reference

Team, I am trying to change tab names for a specific cell. No matter how many tabs I have in the worksheet, the macro should look at cell B4 in all the worksheets and rename the tab name Appreciate any assistance. Melv

chandoo.org

​

Another one :​

Create new workbook and sort and copy data into new workbook using VBA

Hi All, I have a small issue that need help with. Its pretty routine and can be done with VBA, but somehow I am stumped as to how. I have a master sheet in which I have data in 6 sheets - Sheet 1, Con1, Con2, Con3, Sheet 2 and Sheet 3 . The Con data about various customers and their contracts...

chandoo.org

 

[HSA1]

Sir thank you that you replied i would like to say in this regard i have tried according to your given examples but failed.

My question is simple that if i press or run the code again why this error is appear.



How to eliminate this from code.

If Sheet has created and then again i run the code multiple times it should be like nothing is happening. I want this and i do not know how to make this code as i said.

 

[HSA1]

I have spent more than 4 hours constant to make this work.

But i do not know what is wrong with my statement.

If sheet is <> "Sheet2" then add sheet otherwise go to ThisWorkbook.Sheets(Sheet1).Range(a1).Select.

Someone can please make this correct.

Sub shtnew()

Dim wb As Workbook
Dim ws As Worksheet

Set wb = ActiveWorkbook

For Each ws In wb.Worksheets

    If ws.Name <> "Sheet2" Then
    Set ws = Worksheets.Add(after:=Worksheets("Sheet1"))
    ws.Name = "Sheet2"
 
    Else
 ThisWorkbook.Sheets(Sheet1).Range(a1).Select
    End If
    

Next
End Sub