VBA to Add a new sheet and name it.

[pedie]

Hi,

I need a code:
If Sheet names in book1 which is opened does not match the value of F4 then add a new sheet and name it as f4.value


Thanks for helping
Pedie

 

[Weaver]

Try:

Sub insertSheetNamedFromSheet1CellF4()
    On Error GoTo nosheet
    n = Sheets("sheet1").Range("F4").Value
    o = Sheets(n).Range("A1").Text
    Exit Sub
nosheet:
    Sheets.Add().Name = n
End Sub

Note, you didn't say which worksheet the new sheet name was so I assumed sheet1

 

[pedie]

Works Perfect. Thanks alot!