diff --git a/R/writeDataTable.R b/R/writeDataTable.R
index 683e831f..0c54a5df 100644
--- a/R/writeDataTable.R
+++ b/R/writeDataTable.R
@@ -200,7 +200,7 @@ writeDataTable <- function(
   assert_true_false(bandedCols)
   
   if (is.null(tableName)) {
-    tableName <- paste0("Table", as.character(length(wb$tables) + 3L))
+    tableName <- sprintf("Table%i", length(wb$tables) + 3L)
   } else {
     tableName <- wb$validate_table_name(tableName)
   }
diff --git a/tests/testthat/test-build_workbook.R b/tests/testthat/test-build_workbook.R
new file mode 100644
index 00000000..4d144bad
--- /dev/null
+++ b/tests/testthat/test-build_workbook.R
@@ -0,0 +1,18 @@
+test_that("buildWorkbook() accepts tableName [187]", {
+  x <- data.frame(a = 1, b = 2)
+  
+  # default name
+  wb <- buildWorkbook(x, asTable = TRUE)
+  expect_equal(attr(wb$tables, "tableName"), "Table3")
+  
+  # define 1/2 table name
+  wb <- buildWorkbook(x, asTable = TRUE, tableName = "table_x")
+  expect_equal(attr(wb$tables, "tableName"), "table_x")
+  
+  # define 2/2 table names
+  wb <- buildWorkbook(list(x, x), asTable = TRUE, tableName = c("table_x", "table_y"))
+  expect_equal(attr(wb$tables, "tableName"), c("table_x", "table_y"))
+  
+  # try to define 1/2 table names
+  expect_error(buildWorkbook(list(x, x), asTable = TRUE, tableName = "table_x"))
+})