Cannot get Constant to work in VBA Code

[howard]

I have the following code , but cannot get message "subscript out of range

 Const C As String = 2018.2019
sub Copy_Data

 Workbooks("Sales Comms." & d & ".xls").ActiveSheet.Range("D2").PasteSpecial Paste:=xlPasteValues
Workbooks("Sales Comms." & d & ".xls").ActiveSheet.Range("D2").PasteSpecial Paste:=xlPasteValues
end sub

It would be appreciated if someone could kindly assist me

 

[njimack]

Your code refers to a variable d but this hasn't been assigned a value. Also, the name of the procedure implies you will be copying data, but both (identical) lines of code are just pasting.

 

[howard]

thanks for your input. I have amended my code and it is now working perfectly