Excel all Worksheet Column Case Change Macro

Sub UpCase()

Dim dbSheet As Worksheet
Dim LastRowColC
For i = 1 To Worksheets.Count
    Set dbSheet = Worksheets(i)
    LastRowColC = dbSheet.Range("B" + CStr(dbSheet.Rows.Count)).End(xlUp).Row
    For j = 1 To LastRowColC
        dbSheet.Cells(j, "B").Value = StrConv(dbSheet.Cells(j, "B").Value, vbUpperCase)
    Next j
Next i
End Sub