Copy data from one worksheet into new tab of a different workbook

Hi

I have this code that opens a new tab in a workbook called Randomstowreprots every two hours and renames it with date and time.

What I would like is all the data from the workseet "Current" in the workbook "Current" (which is the workbook running the create new tab macro) copied to the new tab once its made.

HTML Code: 

Cheers

Hi

Thanks for the code, it came up with a run time error "object required"
and highlighted the below.

It did create a new tab first.

Set wsNewSheet = .Sheets.Add(After:=.Sheets(.Sheets.Count)).Name _
= Format(Date, "dd-mmm-yyyy") & " " & Format(Time, "hh-mm")

thanks

Hi Dom

Thanks, that worked a treat.

Would you know how to change it form running every 2 hours, to running at set times ie. 10:00 the 12:00 etc..

Thanks