Sub CalcBold(RowNo As String, ColNo As String)
Workbooks.Open "C:\Users\U376305\Downloads\17-02-2020 - Copy.xlsx"
x = ActiveWorkbook.Name
Workbooks(x).Sheets("Sheet1").Activate

Rows(RowNo).Font.Bold = True

End Sub