this should do what you want

For Each sh In ActiveWorkbook.Sheets
sh.Range("A1, U5, W10") = Name
Next sh
--
jb


"Preschool Mike" wrote:

I've created an inputbox to gather user info. that I'd like to apply to all
my worksheets in specificied cells. (e.g., All worksheets - cells A1, U5,
W10). I know how to do this individually (e.g,:
Range("'Sheet1'!, A1, U5, W10") = Name
Range("'Sheet2'!, A1, U5, W10") = Name
This continues to Sheet31
ETC.
Was wondering if there was a quicker method so I don't have to copy, paste
and then make changes?

Any help is appreciated

Mike





but was wondering if there is a shorter and quicker method.