String variables are not to be set.
Dim dn As String
Dim wsn As String
dn = Left(ActiveSheet.Name, 3)
wsn = ActiveSheet.Name
The above suggestion will do what you had in mind, assuming it's the active sheet. If it's not the active sheet you had in mind, you should use the CodeName property instead of the sheet tab name.