Sub sheet1の複写()
j = 1
For i = ◯ To ◯
Sheets("sheet1").Copy After:=Sheets("sheet1")
On Error GoTo ERRO
ActiveSheet.Name = Sheets("sheet1").Range("◯" & i).Value & "-" & j
Next
Exit Sub
ERRO:
If Err.Number = 1004 Then
j = j + 1
End If
Resume
End Sub
上記のマクロは、以前の質問でシ-トに自動で末尾に-1.-2.-3・・・と付けるにはの質問でした。
今度は先頭に(A)と付けるにはどうしたらよいですか
お教えください。
エクセル2003です。