Sub Hojas()Dim Looping As IntegerFor Looping = 1 To Worksheets.Count Worksheets(Looping).Range("A1") = LoopingNext LoopingEnd Sub