I've got this piece of code which is obsiously not working:

For i = 1 To Worksheets.Count
TempForm.CommandButton & i & .Caption = Worksheets(i).Name
Next i

But I need to assign different captions based on sheet names.. How do
I achieve that?

Cheers,
Morris

try this
Sub getworksheetname()
For Each Myworksheet In ThisWorkbook.Worksheets
myname = Myworksheet.Name
Next Myworksheet

End Sub
>
> But I need to assign different captions based on sheet names.. How do
> I achieve that?
>
> Cheers,
> Morris
>
>

Assuming TempForm is a UserForm with CommandButtons:

On Error Resume Next
For i = 1 To Worksheets.Count
TempForm.Controls("CommandButton" & i).Caption =
Worksheets(i).Name
Next i

Hth,
Merjet