Hi,

Try
 Sub Whatver()
    Dim math_percent As Variant
    Dim wk9 As Worksheet
    Set wk9 = ThisWorkbook.Worksheets("Scorecard")
    math_percent = Format(wk9.Range("G13").Value
    
 End Sub