im trying to assign value from cell to heatno variable and trying to print the value but value is not getting printed

Question

Sub data_extract()

Dim sourcefile As String Dim destfile As String Dim sourcepath As String Dim destpath As String Dim heatno As String Dim foldername As String heatno =