VBA help

[Corkeyed]

Hi,
I'm very new to VBA and Excel macros and I'm hoping someone can assist me. I'm looking for a VBA script that:

1. Copies the current sheet
2. Adds 7 days to two different cells (C7 and F7)
3. Renames the sheet based on the new value of F7

Any help would be greatly appreciated!

Thanks,
C

 

[6StringJazzer]

Are C7 and F7 Excel date values (and not just text that looks like a date)?

What is the format for the new sheet name?

 

[tonyyy]

You might consider the following...

Sub CopySheet()
Dim ws1 As Worksheet
ActiveSheet.Copy After:=Worksheets(Sheets.Count)
Set ws1 = ActiveSheet
With ws1
    .Range("C7") = .Range("C7") + 7
    .Range("F7") = .Range("F7") + 7
    .Name = Format(.Range("F7").Value, "mm-dd-yyyy")
End With
End Sub

Cheers,

Tony

 

[Corkeyed]

You might consider the following...

Sub CopySheet()
Dim ws1 As Worksheet
ActiveSheet.Copy After:=Worksheets(Sheets.Count)
Set ws1 = ActiveSheet
With ws1
    .Range("C7") = .Range("C7") + 7
    .Range("F7") = .Range("F7") + 7
    .Name = Format(.Range("F7").Value, "mm-dd-yyyy")
End With
End Sub

Cheers,

Tony

Worked a charm! Thanks for your help on this!

 

[tonyyy]

You're very welcome.

Happy Holidays!