That name is already taken. Try a different one

[natonstan]

I'm having an issue with a piece of code within my macro, I'm getting an error on the following line:

Sheets.Add.Name = "DkRateVariances"
Set DKData = ActiveSheet
myRow = 4
myCol = 4
Do Until CADsheet.Cells(2, myCol) = ""
DKData.Cells(myRow, 1) = CADsheet.Cells(2, myCol)
myCol = myCol + 1
myRow = myRow + 1

The error says 'That name is already taken. Try a different one’ I can't work out why it's trying to create 2 files with the same name, I've even tried changing that sheet name and still get the same error, is there anyway round this?

Thanks in advance for any help