Buat name sheet di Range pakai vb Excel

nama sheet di taruh di B1
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
[B1]=[B1]&","& sh.Name
Next sh

Nama Sheet di taruh di B1 ke bawah

For i = 1 To Sheets.Count
Cells(i, 2) = Sheets(i).Name
Next i

Nama Sheet di buat data validasi Vba excel

Private Sub CommandButton1_Click()
Dim wsArray As Variant
    Dim sWsList As String
    Dim x As Integer
    wsArray = AllWorkSheets()
    sWsList = Join(wsArray, ",")
    With Sheets(1).Range("A1").Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
            xlBetween, Formula1:=sWsList
    End With
End Sub
Public Function AllWorkSheets() As Variant
    Dim wsArray() As Variant
    Dim x As Integer
        ReDim wsArray(Sheets.Count - 1)
        For x = 0 To Sheets.Count - 1
        wsArray(x) = Sheets(x + 1).Name
    Next x
        AllWorkSheets = wsArray
    End Function

Nama Sheet di buat ComboBox Vba excel

Private Sub Worksheet_Activate()
ComboBox1.Clear
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
Me.ComboBox1.AddItem sh.Name
Next sh
End Sub

Vb Mengurutkan Name sheet di Excel

Dim a, b, c, p As Integer
On Error GoTo Gagal

c = Sheets.Count
For a = 2 To c 
  p = a
  For b = a - 1 To 1 Step -1
    If Sheets(a).Name < Sheets(b).Name Then
      p = b
    End If   
  Next
  If p <> a Then
    Sheets(a).Move Before:=Sheets(p)
  End If
Next

Sheets(1).Select

Gagal:

Memper Kecil Ukuran Fail dengan VBA Excel

cara memperkecil fail excel dengan menghapus Object yang ada di Sheet
Sub hapusObject()
Dim gambar As Shape
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
For Each gambar In sh.Shapes
   gambar.Delete
   Next gambar
Next sh
ActiveWorkbook.Save
End Sub