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
No comments:
Post a Comment